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APERFEICÕE 


SUAS TELAS 


Para dar a seus programas 

uma aparência profissional, você 
precisará planejar cuidadosamente 
a página-título e outras telas. 
Aqui você aprende a fazer isso. 


Do ponto de vista do usuário, há vá- 
rias diferenças importantes entre um 
programa simples e bem planejado e ou- 
tro que não apresenta essas qualidades. 
A primeira coisa que distingue um pro- 
grama “profissional” de um amadoris- 
tico é, sem dúvida, o funcionamento 
adequado, sem erros e sem rotinas inú- 
teis ou mal aproveitadas. Além disso, 
num nível mais teórico, O programa pro- 
priamente dito deve ser bem estrutura- 
do e claro. As técnicas necessárias para 
lhe assegurar uma boa estruturação e a 
ausência de erros já foram vistas em ar- 
tigos anteriores. 

Porém, mesmo o programa mais bem- 
feito parecerá obra de um principiante 
se não tiver uma boa apresentação e, so- 
bretudo, se as telas não forem bem or- 
ganizadas e fáceis de compreender. Pa- 
ra isso, cada tela, bem como o menu ou 
mensagem que contiver, deve ser cuida- 
dosamente estudada. Sem o posiciona- 
mento correto das declarações PRINT 
e INPUT será impossível criar telas de 
apresentação clara e interessante. 

No artigo da página 146, examina- 
mos os vários comandos BASIC dispo- 
níveis no seu computador que servem 
para controlar a posição dos caracteres 
na tela. Agora, você verá como usá-los 
para montar uma página-título para um 
jogo imaginário — “INPUT”, Técnicas 
similares poderão ser empregadas para 
a elaboração de telas que apresentam 
instruções, menus e mensagens. 





INSTRUÇÕES CLARAS 


Nada causa pior impressão do que 
uma tela contendo mensagens com er- 
ros de grafia ou sintaxe. 

Você já deve ter observado em mui- 
tos jogos mensagens do tipo “Você tem 
um canhão disponível". Este caso par- 
ticular desabona o programador, sobre- 


tudo porque o erro poderia ter sido fa- 
cilmente corrigido com uma declaração 
IF... THEN (IF L=1 THEN PRINT 
“CANHÃO DISPONÍVEL"). Antes de 
começar a se preocupar com os aspec- 
tos visuais da tela, procure assegurar-se 
de ter eliminado todos os erros desse ti- 
po de programa. 

Ao diagramar uma tela, leve em con- 
ta algumas regras básicas. Em primeiro 
lugar, não perca de vista o objetivo prin- 
cipal: a clareza. Palavras muito próxi- 
mas umas das outras dificultam a leitu- 
ra — assim, deixe um espaço razoável 
entre as linhas. Evite também dividir pa- 
lavras; se for impossivel, utilize, então, 
o hifen para separar as duas partes. 

Caso precise imprimir na tela dados 
fornecidos pelo usuário — como um no- 
me, em uma lista de recordes —, tenha 
o cuidado de evitar que o novo dado in- 
terfira nos demais. No exemplo citado, 
você poderia incluir uma rotina que não 
aceitasse nomes com mais de um certo 
número de caracteres ou que, indepen- 
dentemente do tamanho do novo dado, 
o colocasse numa posição que não afe- 





“A IMPORTÂNCIA 
DE PLANEJAR 


COMO POSICIONAR O TEXTO 
MELHORE A DIAGRAMAÇÃO 


ADICIONE COR 


tasse a do placar ou de outras informa- 
ções exibidas. 

Sempre que você tiver uma lista de in- 
formações, faça com que todos os da- 
dos comecem numa mesma coluna. A 
recomendação parece óbvia, mas vários 
programadores não procedem assim. 

O segundo aspecto a observar diz res- 
peito à quantidade de informações. Se 
você incorrer no erro de introduzir in- 
formações em excesso numa mesma te- 
la, quem utilizar seu programa não con- 
seguirá memorizar todas as instruções e, 
em consequência, não explorará todas 
as suas possibilidades. 

Por outro lado, para não ser obriga- 
do a trabalhar com um número exage- 
rado de telas, você não poderá reduzir 
muito a quantidade de informação em 
cada uma delas. O ponto de equilíbrio 
dependerá, naturalmente, do seu pro- 
grama — quanto maior sua facilidade 
de uso e clareza, menos instruções serão 
necessárias. 


USO DE CORES 





Torne a tela o mais interessante pos- 
sível. Se puder use cores. Elas dão mais 
vida à tela, facilitando a compreensão 
das mensagens ou ressaltando determi- 













nados itens. Estude cada caso para de- 
cidir se utilizará cores no fundo, no tex- 
to, em ambos ou simplesmente na com- 
posição de uma moldura. 

Os usuários do Apple ou do Sinclair 
Spectrum dispõem de um comando mui- 
to versátil — o FLASH. Ele apresenta- 
rá sua mensagem piscando na tela (em 
cores, no Spectrum). Impedindo que as 
instruções assumam uma forma muito 
estática, esse recurso torna o texto bas- 
tante atraente. 

Se você possui outro modelo de mi- 
cro, poderá obter um efeito similar ao 
do comando FLASH, imprimindo o tex- 
to repetidamente no mesmo ponto da te- 
la, em cores diferentes. 

O comando INVERSE, do Apple, 
também possibilita o destaque de men- 
sagens. Ele é especialmente útil, já que 
não se pode usar cor na tela de texto des- 
se computador. 





POSICIONAMENTO 


Para assegurar a clareza da tela, fal- 
ta ainda um importante elemento: o po- 
sicionamento das palavras. Para ter um 
exemplo, digite e execute este pequeno 
programa. Você verá como não fazer 
uma página-título para o seu programa. 
As palavras estão jogadas na tela: não 
há coordenação entre uma e outra, O 
que resulta numa grande confusão vi- 
sual. Mais tarde, examinaremos como 
arrumar tudo isso. 


10 PRINT "Apresentamos um nov 
o jogo chamado input” 
20 PRINT AT 5,17;"(c) 19867 
30 PRINT AT 12,13;" por Nova 
Cultural” 

40 PRINT AT 18,18;"qualquer t 
ecla”" 

50 PAUSE 100 

60 CLS STOP 


10 CLS 4 

20 PRINT €40," INPUT” 

30 PRINT 8136,"copyriqht nova c 
ultural”; 

40 PRINT €228," APRESENTA” 

50 FOR T=1l TO 2000:NEXT:CLS 


Para o TRS-80, use apenas CLS na 
linha 10 e multiplique por 2 todos os va- 
lores das instruções PRINTO. 


a 


10 PRINTTAB(4);"novacultural ap 


resenta” 

20 PRINTTAB(10);"input” 

30 PRINT:PRINT"copyrioght 1986” 
40 FORJ=1TO5S00:NEXT 

50 CLS 


eb JL] 


10 PRINT TAB( 5);"NOVACULTURA 
L APRESENTA” 
20 PRINT TAR( 22)" INPUT” 


30 PRINT PRINT "COPYRIGHT 19 
B6” 

40 FOR J = 1 TO 1000: NEXT 

50 HOME 


Observe o resultado: trata-se, sem 
dúvida, de uma tela inexpressiva, em 
que vários detalhes precisam ser altera- 
dos. Inicialmente, poderiamos empregar 
letras maiúsculas para melhorar o efei- 
to. A versão para o Spectrum utiliza le- 
tras minúsculas até mesmo para a pri- 
meira palavra da tela e para o nome do 
jogo. Maiúsculas ressaltam palavras im- 
portantes ou, se forem usadas no texto 
inteiro, garantem à tela uma aparência 
bem clara. 

Deveriamos, também, limpar a tela, 
antes de mostrar um novo conjunto de 
mensagens. Como você pôde observar 
no programa anterior, fragmentos do 
que estava na tela misturam-se à men- 
sagem, completando a confusão. 

Não há espaço entre as palavras NO- 
VA e CULTURAL. Deveria haver. Ve- 
remos, adiante, como deixar tudo isso 
em ordem. 

Outra falha do programa é não espe- 
rar que se pressione alguma tecla para 
prosseguir. Assim, não há muito tem- 
po para ler as mensagens antes que clas 
sejam apagadas. Para evitar esse proble- 
ma é sempre interessante incluir uma li- 
nha dizendo o que se deve fazer para que 
o programa continue — quando o usuá- 
rio quiser. 


No Spectrum, sabendo-se o tamanho 
da tela e o número de caracteres que 
compõem as palavras, pode-se planejar 
com muita facilidade o posicionamen- 
to da mensagem. 

Suponhamos que seu computador te- 
nha 22 linhas e 32 colunas; você quer co- 
locar uma frase de dez caracteres na se- 
gunda linha, e bem no meio dela. Ao ve- 
rificar o tamanho da frase, não se esque- 
ça dos espaços. 

Para calcular a coordenada horizon- 
tal da posição onde a frase começará a 
ser impressa, subtraia o tamanho da fra- 
se (10 no nosso caso) do total de carac- 


teres por linha (32) e divida o resultado 
por 2. 

No nosso exemplo, a resposta é 11. 
Como o 0 é considerado, o primeiro ca- 
ractere da linha tem coordenada 0, e não 
1. Assim, devemos subtrair 1 do resul- 
tado acima para conseguir a coordena- 
da horizontal do PRINT AT (ou PRINT 
TAB). 

Se você quiser posicionar uma frase 
a apenas dois ou três caracteres da mar- 
gem esquerda, será mais fácil colocar o 
número de espaços dentro da declara- 
ção PRINT em vez de usar PRINT TAB 
ou PRINT AT. No entanto, se o núme- 
ro de espaços for grande, evite essa téc- 
nica, pois ela tende a gastar muita 
memória. 

Você pode calcular a posição vertical 
como calcula a horizontal — ou seja, 
para colocar a mensagem no centro da 
tela, vê quantas linhas ela ocupa, sub- 
trai esse número do total de linhas e di- 
vide por 2. Por fim, subtrai 1 do resul- 
tado, considerando que a coordenada da 
primeira linha é 0. 

Quando quiser colocar a linha em ou- 
tra posição, use um papel gráfico para 
visualizar melhor a tela, ou, se já tem 
alguma experiência, estime a posição 
que lhe convém, de memória. 

Os usuários do Spectrum devem ob- 
servar que a instrução PRINT AT fun- 
ciona de modo um pouco diferente do 
dos outros computadores. O primeiro 
número que acompanha essa instrução 
refere-se à coordenada vertical (y) e o se- 
gundo, à coordenada horizontal (x). No 
entanto, o comando PLOT utiliza pri- 
meiro a coordenada x e depois a y. 


O número após o PRINTO refere-se 
a uma posição da tela de texto do com- 
putador. Existem 512 posições no TRS- 
Color e 1024 no TRS-80. Os números, 
assim, não podem exceder 511 e 1023, 
respectivamente, já que a numeração co- 
meça no O. 

O cálculo do número da posição que 
se quer é muito simples. Primeiro, mul- 
tiplique o número da linha desejada por 
32 (esse é o número de caracteres por li- 
nha, no Color) ou por 64 (se você está 
usando um TRS-80). Depois, adicione 
um valor de O a 31 (no Color) ou de O 
a 63 (no TRS-80), para obter a posição 
horizontal. 

Se preferir, deixe que o computador 
faça as contas por você. Para isso, uti- 
lize a seguinte fórmula: PRINTO 
L*32 +C, “MENSAGEM. L represen- 
ta a linha que você deseja (de 0 a 14) e 
C a coluna (de O a 31). No TRS-80, use 





a 63. 

Para centralizar uma frase na tela, 
subtraia o total de caracteres da frase do 
total de caracteres da linha (32 ou 64); 
divida o resultado por 2 e subtraia 1. 
Você obtém, assim, o número da colu- 
na em que a impressão da frase se ini- 
ciará. Esse valor pode ser utilizado, por 
exemplo, com a fórmula dada anterior- 
mente. Lembre-se de que os números 
que seguem a instrução PRINTO de- 
vem ser inteiros. 


O posicionamento de mensagens no 
MSX também é muito fácil. Esse com- 
putador usa o comando LOCATE, se- 
guido da coluna e linha (nesta ordem). 
Assim, para colocar a mensagem no lu- 
gar desejado, basta calcular a coluna e 
a linha. O mesmo comando também po- 
de ser usado com um argumento numeé- 
rico, que será interpretado como a co- 
luna onde se iniciará a impressão. 

Como o MSX tem duas telas de tex- 
to, verifique qual delas estã em uso pa- 
ra, então, calcular a posição adequada 
de impressão. A primeira (SCREENO) 
apresenta quarenta colunas por 24 li- 
nhas e a segunda (SCREENT), 32 colu- 
nas por 24 linhas. 


64 em lugar de 32; C pode variar de 0 N 


Para centralizar uma frase em deter- 


minada linha, subtraia o total de carac- 
teres da frase do total de caracteres da 
linha e divida o resultado por 2. Esta se- 
rá a posição para o início da frase, 


O Apple e seus compatíveis empre- 
gam, além do PRINTTAB, os coman- 
dos HTAB e VTAB para posicionar o 
cursor dentro da janela de texto. O co- 
mando HTAB determina a posição ho- 
rizontal com valores que variam de 1 a 
40e o VTAB determina a posição verti- 
cal, com valores que vão de 1 a 24. O 
uso de valores fora dessas faixas provo- 
cará o aparecimento de uma mensagem 
de erro. 

Para a centralização de uma mensa- 
gem, primeiro calcule o total de carac- 
teres dela, depois subtraia de 40 e divi- 
da por 2. O resultado obtido deve ser 
utilizado como posição inicial de im- 
pressão da mensagem. 

O interessante, nesse computador, é 





a facilidade com que se pode manipu- 
lar a janela de texto. Essa característica 
torna muito simples a limpeza da linha 
de uma determinada posição até o fim 
dela ou de uma posição até o fim da te- 
la, Utiliza-se o comando CALL -868 pa- 
ra apagar tudo o que estiver à direita da 
posição do cursor até o fim da linha. O 
CALL -958 limpa todos os caracteres da 
janela de texto, da posição do cursor até 
o fim da tela. Desse modo, podemos 
trocar mensagens em locais especificos 
da tela, conservando o resto intocado, 
com grande rapidez e versatilidade. 
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UMA TELA BEM-FEITA 





Uma tela pode ser clara e atraente 
mesmo que não empreguemos técnicas 
de programação complicadas. O progra- 
ma dado a seguir é um exemplo disso. 
Ele corrige os defeitos do programa an- 
terior e adiciona cor e animação ao ti- 
tulo, para torná-lo mais interessante. Dé 
especial atenção ao uso dos comandos 
de controle do cursor, pois eles são fun- 
damentais em tudo o que diz respeito à 
impressão na tela. 


5 LET X=1 

10 BORDER 1: PAPER 1: INK 7: 
CLS 

20 PRINT INVERSE 1:;AT 3,4;” 


EDITORA NOVA CULTURAL ” 


30 PRINT INVERSE 1;AT 5,10;" 
APRESENTA * 

40 PAUSE 50 

S0 PRINT PAPER 6; INK 1;AT 
10,140;” EN PUT” 

60 PRINT PAPER 6; INK Z;FLASH 
L:AT 9,9; TERRENOS 
":ATI11,9;" Go fm feel fe fm fl lol fl fl fl fool 
70 PRINT PAPER 6; INK 2; 
FLASH l1l:;AT 10,9:"D";AT 10,21; 
"m” 

BO PRINT PAPER 5; INK 0;AT 
15,2:"COPYRIGHT AUDIO, VISUAL, 
1984" 


90 PRINT "'*''"” QUALQUER TECLA 
PARA CONTINUAR" 

100 PAUSE O 

JIU CLS 
120 PRINT 
130 PRINT 
140 FOR X=1 
L50 READ as 
155 READ b5 
160 PRINT 'TAB 3;aS; TAB 25:b5 
170 NEXT X 

180 DATA "Animacao”","26-32","B 
asic,programacao","2-7","BREAK 
|Spectrum","7","CasseLes","25" 
"Gravadores" ,"24","CHAS ,uso 
do”,"26-27","CLEAR”,"10-27","c 
LOAD,Dragon","14","cLS, explica 
cao de”,"27","CODE, Spectrum”, 
"8" 


Como você pode observar, o progra- 
ma, inicialmente, muda a cor da tela e 
das bordas, e limpa a tela. Escolha as 
cores de sua preferência, mas procure 
evitar o habitual fundo negro com letras 
brancas. Qualquer outra coisa terá efei- 
to melhor, simplesmente por ser di- 
ferente. 

Não se esqueça, porém, de que a fa- 
cilidade de leitura é indispensável. As- 
sim, para as letras, opte por uma cor que 
contraste bem com o fundo. Fora isso, 
use seu bom gosto: algumas combina- 


“INPUT - INDICE” 


To 10 





ções são, sem dúvida, bem mais agra- 
dáveis que outras. 





POSICIONAMENTO 


As linhas 20 e 30 colocam na tela as 
palavras “EDITORA NOVA CULTU- 
RAL APRESENTA”. Observe que o 
nome da empresa fica na primeira linha 
e a palavra “APRESENTA”, duas li- 
nhas abaixo. Esse detalhe garante ao 
texto muito maior clareza. 

O programa utiliza o comando 
PRINT AT para posicionar as palavras 
no centro da tela. Tente descobrir quais 
deveriam ser os números dessa instru- 
ção por meio dos cálculos explicados an- 
teriormente. Veja se eles conferem com 
os do programa! 

Ao contrário do programa anterior, 
este posiciona as palavras no lugar ade- 
quado — detalhe que, como você pode 
notar, determina uma grande diferença 
de qualidade entre as telas. 

Pode-se também utilizar a instrução 
PRINT TAB para posicionar a mesma 
palavra, mudando a linha 30 para: 











30 PRINT “TAB 10; INVERSE 1; 
“APRESENTA” 

O apóstrofo junto ao TAB 10 faz 
com que o Spectrum deixe uma linha em 
branco antes de imprimir “*APRESEN- 
TA” na tela. Pode-se também obter o 
mesmo resultado simplesmente colocan- 
do uma instrução PRINT vazia (com 
um número de linha apropriado). 

O programa faz uma pausa após es- 
sa mensagem para dar maior ênfase ao 
próximo item que deverá ser impresso, 
o nome INPUT. 

As linhas 50, 60 e 70 imprimem IN- 
PUT com uma borda que pisca em ver- 
melho e amarelo. Essa borda é feita com 
caracteres gráficos da ROM — como se 
vê no programa — com o comando 
FLASH usando vermelho e amarelo. : 

Essas linhas utilizam uma série de co- 
mandos PRINT AT e mostram o quan- 
to ele é flexível. Não há necessidade de 
se repetir o PRINT enquanto um ponto 
e vírgula é colocado entre os itens da 
linha. 

Os vários AT são separados por pon- 
to e virgula. Caso os separássemos ape- 
nas por vírgulas, estas colocariam meia 
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linha de espaço na tela, o que poderia 
apagar alguma outra coisa que ali se en- 
contrasse. Assim, a não ser que você 
queira apagar o que estiver nesta posi- 
ção da tela, use de preferência o ponto 
e vírgula, 

Como a borda piscante não fica no 
centro da linha, o cálculo de suas coor- 
denadas não pode ser feito da maneira 
explicada anteriormente. Calcule as po- 
sições tomando as coordenadas da pa- 
lavra central da linha e adicione e sub- 
traia o número necessário para obter os 
resultados para a borda. 

Tomemos, como exemplo, a primei- 
ra linha da borda. Já sabemos que as 
coordenadas da palavra INPUT são 10, 
10. Sabemos também que esta linha fi- 
ca uma acima de INPUT. Então, sub- 
traindo 1 do primeiro número, obtemos 
a primeira coordenada: 9. 

Como queremos que a borda come- 
ce um espaço antes da palavra, nova- 
mente subtraimos 1, agora da segunda 
coordenada de INPUT, obtendo 9. 

Calcule os números das outras par- 
tes das bordas e compare seus resulta- 
dos às coordenadas que empregamos. 





O programa completa a tela com uma 
mensagem de direitos autorais (para 
lembrar aos usuários que é ilegal copiar 
programas) e informa que se deve pres- 
sionar qualquer tecla para continuar. 
Ao fazê-lo, não aparecerão instruções 
nem o início de um jogo, mas um fndi- 
ce de INPUT. 

Quando se pressiona uma tecla, o 
Spectrum limpa a tela e imprime a men- 
sagem “INPUT — INDICE” em seu to- 
po. A mensagem é posicionada no can- 
to esquerdo da linha. Se quiser centra- 
lizá-la, introduza nove espaços entre as 
aspas e a primeira letra da mensagem. 
Em seguida, o computador deixa uma 
linha em branco, resultado do PRINT 
sem nenhuma mensagem da linha 130. 

O laço FOR...NEXT que se segue lê 
duas variáveis alfanuméricas da linha 
DATA de número 180. Pode parecer es- 
tranho que números de páginas estejam 
armazenados em variáveis desse tipo. 
Observe, no entanto, que às vezes en- 
contramos mais de um número. Sua ar- 
mazenagem numa variável numérica se- 
ria interpretada como uma subtração e, 
quando imprimíssemos o valor da variá- 
vel, iriamos obter o valor - 6, o que cau- 
saria muita confusão! 

Além disso, alguns dados apresentam 
informações separadas por vírgula. Co- 
mo você sabe, esta é a pontuação que 
separa diferentes itens numa linha DA- 
TA. Assim, é necessário colocar esses 
dados entre aspas para que o computa- 
dor não os interprete como coisas dis- 
tintas — com as aspas, ele lê a informa- 
ção como um bloco, sem separá-la. 

A linha 160 controla a impressão das 
informações da linha DATA, determi- 
nando sua posição na tela. 

O PRINT TAB alinha os dados e nú- 
meros de páginas para que todos come- 
cem na mesma coluna, dando à lista 
uma aparência organizada. Ele é muito 
útil na impressão de índices, determi- 
nando a coluna em que o dado começa- 
rá a ser impresso. Nosso programa co- 
loca a indicação na coluna 3 e a página 
na coluna 25. 

Observe que usamos apenas um 
PRINT para imprimir os dois dados na 
linha, sendo que os TAB são separados 
por ponto e vírgula. Se você mudar o 
TAB 25 para TAB (25 + 32) ou TAB 57, 
não notará nenhuma diferença. Quan- 
do se emprega um número maior que 
32, ele é dividido por 32 e o resto é des- 
prezado. O cursor não muda de linha até 
que se utilize o retrocesso — ou seja, até 
que um TAB tenha um valor menor do 
que a posição atual do cursor. O micro 
pula, então, para a linha seguinte e ne- 
la coloca a informação. 

Experimente mudar os valores do 


TAB para ter uma idéia melhor do que 
eles significam em termos de posição na 
tela. Lembre-se de que esta tem 32 ca- 
racteres por linha, 

O PRINT AT e o PRINT TAB, em- 
bora muito parecidos, são usados em 
circunstâncias diferentes. Sempre que 
você quiser imprimir uma lista de pala- 
vras ou números na tela, utilize PRINT 
TAB. PRINT AT é mais poderoso pa- 
ra a impressão de mensagens isoladas 
em determinado ponto da tela. 
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Digite este programa e veja como o 
PRINTO pode ser usado para produ- 
zir uma página-título adequada: 


10 CLS 3:B3=CHR3(128B) 

20 PRINT 871,BS;"nova”;BS;"cult 

ural”";BS; 

30 PRINT 8138," APRESENTA”; 

40 PRINT 6€6358,B5S;"copyright"; BS 
'B$:;B$S;" 1986" ;BS; 

50 PRINT €6232,CHR$S (190); STRINGS 
(11,CHR$(188));CHRS (189); 

60 PRINT €6264,CHRS(234);" INP 
U T ";cHRS(229); 

70 PRINT 8296,CHAS (155); STRINGS 
(11,CHR$(147));CHR$S(151); 

BO PRINT 6448," QUALQUER TECLA 
PARA CONTINUAR  "; 

90 J=1-J:SCREEN 0,4 

100 FOR K=1 TO 200:NEXT 

110 IF INKEYS<>"" THEN 130 

120 GoToO 50 

130 CLS 4 

140 PRINT €7," INPUT - INDICE”; 
150 FOR X=3 TO 12 

160 BREAD D$S,ES 

170 PRINT €632*X+1,D5;: PRINT €32 
*Z+25, LEFTS(" "+ES+" RE 
180 NEXT X 

190 DATA ANIMACAO, 26-32," BASIC, 
PROGRAMACAO", 2-7,"BREAK, DRAGON” 
7, "CASSETE, FITAS",25,"CASSETE, 
GRAVADORES", 24,"CHAS,USO DE”,26 
-27 ,CLEAR,"10,27","CLOAD, TAS",1 
4,"CLS, EXPLICACAO”,27,"CODE,SPE 
CTRUM",B 

200 GOTO 200 


O programa começa mudando a cor 
da tela para azul, na linha 10. O resto 
da linha iguala B$ a um quadrado escu- 
ro. As linhas 20 e 40 imprimem as pala- 
vras em caracteres reversos, usando B$ 
como um espaço. Lembre-se de que os 
caracteres reversos do TRS-Color 
aparecem em minúsculo nas listagens. 

A linha 30 é similar, com uma dife- 
rença: como a palavra APRESENTA é 
menos importante, aparece em caracte- 
res maiúsculos normais. 

No centro da tela está o título INPUT 
rodeado por um bloco gráfico colorido. 
Os caracteres e o título são impressos pe- 
las linhas 50 a 70. 
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O manual indica os caracteres gráfi- 
cos que estão disponíveis. Eles são cons- 
tituídos por áreas verdes e áreas escuras. 
Adicionando-se um múltiplo de 16 ao 
código do caractere, o verde pode ser 
substituído por amarelo, azul, vermelho 
etc. 

As áreas da tela coloridas de verde 
são aquelas em que a cor de fundo apa- 
rece. É fácil mudar a cor da tela do ver- 
de para o laranja e produzir um efeito 
pisca-pisca. Para a mudança, a linha 90 
usa o comando SCREEN de maneira si- 
milar à utilizada para mudar a cor de 
gráficos de alta resolução. SCREEN 0,1 
muda a cor da tela para laranja e 
SCREEN 0, O) traz de volta o verde. O 
programa troca a cor da tela a cada exe- 
cução do laço. 

Para que se possa apreciar melhor a 
mudança de cor, a linha 100 estabelece 
uma pequena pausa. A linha 120 vai fe- 
char o laço. 

Se alguma tecla é pressionada en- 
quanto a página está sendo mostrada, 
a linha 110 faz com que o programa pas- 
se para a parte seguinte. 

A linha 130 muda a tela para verme- 
lho. A linha 170 e o laço FOR...NEXT 
das linhas 150 e 180 encarregam-se de 
imprimir os dados lidos da linha 190. A 
cada execução do laço, uma nova linha 
é usada para a referência e o número de 
linha. O LEFTS faz com que o número 
da linha apareça sempre num painel do 
mesmo tamanho, o que assegura um vi- 
sual bastante claro. 

O toque final cabe ao laço da linha 
200 que, embora não pareça, é bem im- 
portante. Sem essa linha, o programa 
colocaria uma mensagem de prontidão 
na tela, desfigurando nosso trabalho. 
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Vejamos uma tela mais cuidada pa- 
ra apresentar O nosso jogo: 


COLOR 15,12,12:KEYOFEF 

SCREENIL:CLS: Z5=CHRS (1) 

PRINTTAR(B);"NOVA CULTURAL” 

PRINT:PRINTTAB(6);"A PR E 8 
ENTÃA" 

50 LOCATE 11,9:PRINTZS+CHES (88) 
::FORX=1TOS:PRINT Z5+CHRS(B/):: 

NEXT: PRINTZS+CHRS (89) 

60 LOCATE 11,10:PRINTZS+CHRS (86 
)J;" INPUT”; Z5+CHARS (86) 

70 LOCATE 11,11:PRINTZS+CHRS (90 
)::FORKX=1TOS: PRINT ZS+CHR$(B7):; 
"NEXT: PRINTZS+CHAS (91) 

80 LOCATE 5,19:PRINT'Copyriaht 
(C) 1986” 

90 LOCATE 2,22:PRINT"Tecle a ba 

rra de espaços” 

100 IF INKEYS=""THEN10O 

| 110 CLS:LOCATE 7:PRINTCHR$S (207) 


: "INPUT - ÍNDICE";CHRS (208) 

120 FOR J=1TO7: LOCATE 0,72*J+6 
130 READ AS,BS 

140 PRINTAS;TAB(23):B5S 

150 NEXT 

L60 GOTO 160 

1720 DATA ANIMAÇÃO, 26-32, PROGRAM 


AÇÃO BASIC,2-7,"CTRL-STOP, MSX” 
,B, SISTEMA OPERACIONAL, 25, CONTAR 
OLADORES DE DISCO,24,"CHRS5S, uso 
do”",26-27,"POKE, como usar o”, 
27-28 


O programa começa mudando a cor 
da tela para verde, com caracteres bran- 
cos, e desativando as indicações das te- 
clas de função. Em seguida, seleciona a 
tela de texto de 32 colunas e define a va- 
riável Z$ como o caractere de código 1. 
Adiante, veremos a utilidade dessa va- 
riável. 

As linhas 30 e 40 colocam na tela, de 
forma organizada, a mensagem “NO- 
VA CULTURAL APRESENTA”. O 
PRINT TAB, com um valor adequado, 
encarrega-se de centralizar as palavras, 
enquanto o PRINT vazio que inicia a li- 
nha 40 produz o espaço de uma linha en- 
tre as palavras. 

As linhas 50 e 70 imprimem o título 
INPUT dentro de uma moldura forma- 
da por caracteres gráficos. Esses carac- 
teres são acessados pela instrução PRINT 
na forma: PRINT CHRS$(1) + CHRS (có- 
digo do caractere + 64). 

Observe o uso da instrução LOCA- 
TE, já explicada anteriormente, para 
posicionar na tela caracteres gráficos e 
palavras. 

A linha 100 pode parecer um tanto 
estranha, mas é muito importante no 
programa. Ela faz com que o computa- 
dor varra repetidamente o teclado, até 
que pressionemos alguma tecla, passan- 
do para a parte seguinte. 

A linha 110, por sua vez, limpa a te- 
la e posiciona uma mensagem no topo 
desta. As referências e números de pá- 
ginas são lidos da linha DATA e impres- 
sos pelas instruções do laço das linhas 
120 a 150. 

A linha 160, finalmente, tem como 
função evitar que o cursor e um OK pro- 
vocados pelo término da execução do 
programa atrapalhem o visual da tela. 
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10 HOME 

20  INVERSE PRINT HTAB 12: 

PRINT ” NOVA CULTURAL ” 

30 PRINT HTAB 10: PRINT * A 

PRESENTA 

40 VTAB 12: PRINT SPC( 16): N 
ORMAL PRINT " INPUT ";: INVER 
SE PRINT SPC( 17) 


45 NORMAL : VTAB 20: HTAB 15: 
PRINT "VERSAO 1.1” 

50 PRINT HTAB 11: PRINT "COP 
YRIGHT (C) 1986" 

60 FLASH UTAR 24: HTAB 7: PR 
INT ”" TECLE A BARRA DE ESPACOS” 
:: NORMAL 

70 GET AS 

BO HOME : INVERSE PRINT SPC 
( 13);" INPUT - INDICE”; SPC( 13 
3): NORMAL 

90 FOR J=1TO7: VTABJ *R2 
+: 8 

100 BREAD IS,PS: PRINT TAB( 7) 
118: TAB( 30) :PS: NEXT 

110 GOTO 110 

120 DATA ANTIMACAO, 26-32, PRO 


GRAMACAO BASIC,2-7,"CTRL-C, App 
le”,7, SISTEMA OPERACIONAL, 25,C0 
NTROLADORES DE DISCO, 24,"CHRS, 

uso do”,26-27,"POKE, como usar 

o", 27-28 


O programa produz uma tela bem 
mais elaborada que a anterior. Logo que 
se inicia, ele limpa a tela e seleciona o 
modo invertido de apresentação de ca- 
racteres. A instrução PRINT vazia nas 
linhas 20 e 30 faz com que o computa- 
dor pule uma linha antes de começar a 
imprimir as mensagens. 

Os comandos HTAB e VTAB, como 
já explicamos, posicionam o cursor pa- 
ra a impressão. | 

Na linha 40, a instrução PRINT SPC 
(..), no modo invertido, provoca o apa- 
recimento de uma linha escura antes do 
título INPUT, dando-lhe destaque. 

As linhas 45 a 50 imprimem no mo- 
do normal mensagens de copyright e da 
versão do programa. 

A linha 60 utiliza o comando 


FLASH. Os usuários do TK-2000 devem 


substituí-lo por INVERSE. A mensagem 
aparecerá piscando no Apple, junta- 
mente com o cursor (é quase impossível 
escondê-lo, mas, dessa forma, ele se 
confunde com a mensagem). 

A linha 70 faz o computador esperar 
até que alguma tecla seja pressionada 
para continuar a execução. 

Em seguida, o programa limpa a te- 
la novamente e coloca a mensagem ““IN- 
PUT - INDICE” no modo invertido. O 
laço das linhas 90 e 100 lê e imprime na 
tela as referências e números de páginas 
respectivos. Observe que isso é feito por 
meio dos comandos READ e PRI 
TAB. A mesma instrução PRINT impri- 
me a referência e o número da página, 
estando os TAB separados por ponto e 
virgula. Esse processo facilita muito a 
montagem de listas e tabelas. 

A linha 110 impede que o programa 
termine. Assim, evita-se o aparecimen- 
to do cursor na tela, o que afetaria a dis- 
tribuição das mensagens. 
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GERAÇÃO DE 
GRÁFICOS (2) 


Aqui está a parte que faltava a Este artigo completa o programa ge- mo usar Os caracteres criados em seus 
| | rador de caracteres gráficos. As novas programas BASIC. 
seu programa gerador de blocos gráficos. linhas acrescentam-lhe recursos que tor- 


NOVAS FUNÇÕES 
INVERSÃO DE CORES E FORMAS 
— IMAGENS ÃO ESPELHO 
COMO RODAR OS CARACTERES 
O USO DA IMPRESSORA 





Com as novas funções incorporadas, nam ainda mais fácil a criação de blo- 

a cos definidos pelo usuário. 
ni poderá ram caracteres com Além da parte final do programa, vo- | 
muito mais facilidade. cê encontrará aqui algumas dicas de co- Depois de acrescentar as novas linhas 
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ao programa dado no artigo anterior, 
você terá mais seis funções à sua dis- 
posição. 

A primeira evidencia-se já no início. 
Ela mostra na tela os valores dos oito 
bytes correspondentes às linhas do blo- 
co, bem como uma versão em tamanho 
real na tela. Isso é feito por um progra- 
ma em linguagem de máquina, que atua- 
liza tanto os valores como o bloco em 
tamanho real sempre que modificamos 
um ponto. 

O programa completo também per- 
mite que você limpe o quadriculado por 
meio da tecla €, evitando o trabalho de 
apagar ponto por ponto, 

Existem ainda três outras teclas de 
controle a que se pode recorrer para mo- 
dificar o padrão do quadriculado. Se vo- 
cê apertar o M, o bloco será substitui- 
do por sua imagem ao espelho. Assim, 
sempre que quiser obter uma figura 
composta por dois blocos simétricos — 
uma espaçonave, por exemplo —, bas- 
ta desenhar um deles, guardá-lo no ban- 
co de memória e criar a imagem simé- 
trica usando a tecla M. Também lança- 
mos mão desta função quando estamos 


desenhando duas figuras iguais, cada 
qual apontando para uma direção, 

De modo semelhante, é possível ro- 
dar o bloco 90 graus, pressionando a te- 
cla R, Esta função será muito útil quan- 
do se precisar criar apenas um bloco — 
de um torpedo, digamos — e depois vi- 
rá-lo em todas as direções. 

Com a última das três funções você 
obterá o inverso do caractere, por meio 
da tecla I. Se usá-la duas vezes seguidas, 
terá o inverso do inverso, ou seja, o ca- 
ractere original. 

O programa passará a dispor, tam- 
bém, de uma rotina de impressão. Pode- 
se empregá-la para imprimir os valores 
dos bytes que serão colocados em uma 
linha DATA, por exemplo, ou para fa- 
zer uma cópia da tela. Esta sairá melhor 
ou pior de acordo com o tipo de sua im- 
pressora. 

Para usar a impressora, pressione a 
tecla Z, seguida de D ou S, conforme 
queira valores de bytes ou uma cópia da 
tela, respectivamente. Caso outra tecla 
seja utilizada, o programa voltará à 
edição. 

Se você não tiver uma impressora, 
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não copie as linhas de 2570 a 2590. 
Acrescente, porém: 


2570 GOTO 2000 
Aqui está o resto do programa: 


5 CLEAR 31999 
12 LET T=0: FOR N=32000 TO 
32227: READ A: POKE N,A: LET 
T=T+A: NEXT N: IF T<>21691 
THEN PRINT FLASH 1;"ERRO NA 
S LINHAS 'DATA'": STOP 
2020 PRINT AT 10,21;CHAS 139;CH 
ARS 131;CHBRS 135;AT 11,21;CHRS 1 
38B:;AT 11,23;CHRS 133;AT 12,21;€C 
HAS 142;CHRS 140;CHAS 141 
2030 RAND USB 32000 
2530 IF INKEYS="I1" 
SA 32092 
2540 IF INKEYS="Cº 
2106,0: RAND USA 32092: 
106,12 
2550 IF INKEYS="M” THEN RAND U 
SAR 32145 
2560 IF INKEY$="R” THEN RAND U 
SAR 32183 


THEN RAND U 


THEN POKE 3 
POKE 32 


2570 IF INKEYS<>"Z" THEN GOTO 
2000 
2575 INPUT "C(OPIA DA TELA) OU 


B(YTES)? "; LINE Z3 














EEE 
“ 


BE 
pardo 


2580 IF ZS<>"C” AND Z5<2"B” THE 
N GoTo 2000 

2590 IF Z5$="C” THEN COPY 
O 2000 

2600 LET CH=65: FOR N=USR “A” T 
O USR "U"+7 STEP B 

2610 LET TA=0: LPRINT CHR$S CH: 
FOR M=N TO N+7: LPRINT TAB TA;P 
EEK M;: LET TAsTA+4: NEXT M 
2620 LPRINT : LET CH=CH+1: 
N 

9100 DATA 62,2,205,1,22,62,22,2 
15,62,8,215,175,215,33,11,72,22 
1,33,118,/2 

9110 DATA 6,8,197,6,8,14,128,17 
5,50,91,125,126,254,1,40,7,58,9 
1,125,129 

9120 DATA 50,91,125,203,57,35,1 
6,239,58,91,125,221,119,0,229,2 
21,229,62,23,215 

9130 DATA 62,5,215,33,90,125,20 
5,40,26,62,13,215,221,225,225,1 
?,24,0,25,221 

9140 DATA 229,209,20,213,221,22 
5,193,16,189,201,0,0,33,11,72,6 
18,197,6,8 

9150 DATA 197,126,254,1,229,40, 
12,6,7,62,1,119,36,16,252,54,25 
5.24,13,6 

9160 DATA 4,54,85,36,54,171,936, 

16,248,37,54,255,225,193,35,16, 


: GOT 


NEXT 
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219,17,24,0 

9170 DATA 25,193,16,209,201,33, 
11,72,6,8,197,6,4,17,7,0,197,22 
9,126,25 

9180 DATA 78,119,225,113,35,27, 
27,193,16,242,17,28,0,25,193,16 
,229,205,92,125 

9190 DATA 195,92,125,221,33,11, 
74,33,235,72,6,8,197,6,8,197,22 
1,126,0,119 

9200 DATA 221,35,6,32,43,16,253 
/193,16,241,17,24,0,221,25,17,1 
1), 25,193 

9210 DATA 16,226,205,92,125,195 
(92,125 


Os valores nas linhas DATA são pro- 
gramas em linguagem de máquina co- 
locados no alto da memória com POKE. 
Ali existem três rotinas diferentes para 
rodar, espelhar e colocar o caractere em 
tamanho real na tela, junto com o va- 
lor dos bytes. 

Tome cuidado na digitação desses va- 
lores. Qualquer erro pode ser fatal. Por 
isso mesmo, O programa verifica as li- 
nhas DATA, provocando uma interrup- 
ção caso detecte algum erro. 





USO DOS BLOCOS EM OUTROS PROGRAMAS 


O programa do artigo anterior já in- 
cluía funções de gravação e leitura em 
fita. Por meio delas, podemos dispor de 
uma versão permanente dos blocos cria- 
dos. O uso correto deste programa per- 
mite a criação de muitos bancos cheios 
de novos caracteres. 

O Spectrum é capaz de utilizar 21 
UDG de cada vez. Se precisar de um nú- 
mero maior, você terá duas opções: criar 
vários bancos de memória, ou redefinir 
o conjunto de blocos a todo instante. 
Explicaremos mais tarde como isso é fei- 
to, mas, agora, adiantaremos alguns de- 
talhes. 

Desde que saiba como modificar o 
“apontador de UDG”, você pode utili- 
zar quantos caracteres quiser. O apon- 
tador é uma variável interna do Spec- 
trum que diz ao computador onde en- 
contrar os bytes correspondentes aos 
blocos definidos pelo usuário. 

Mesmo que tenha gravado os bytes 
criados pelo programa a partir de um 
determinado endereço, você poderá tra- 
zer este conjunto de caracteres de volta 
da fita para qualquer outro endereço. 
Assim, se quiser usar três diferentes ban- 
cos de caracteres ao mesmo tempo, bas- 
tará carregá-los em posições diferentes 
da memória. 

Cada banco criado pelo programa 
tem 168 bytes de comprimento. Por is- 
so, é necessário carregar cada conjunto 
de caracteres em posições que tenham 
uma distância de pelo menos 168 bytes 


entre si; caso contrário, um banco po- 
derá apagar parte de outro. Para carre- 
gar um conjunto de caracteres gravado 
pelo programa, digite: 


LOAD "” CODE (endereço inicial) 


Independentemente do endereço a 
partir do qual o banco tenha sido gra- 
vado, pode-se colocá-lo em qualquer 
parte da RAM. 

Para usar os bancos que carregou, 
modifique o valor do apontador de 
UDG. Em artigo posterior, trataremos 
do assunto em detalhes. 

importante adiantar, ainda, que ao 
usarmos mais de um banco de caracte- 
res em um programa deveremos prote- 
ger, por meio de um comando CLEAR, 
a área de memória ocupada. Isso tam- 
bém será explicado mais tarde. 


Feitas as modificações, o programa 
terá várias novas funções. Você notará 
a primeira delas quando for guardar um 
bloco recém-criado no banco: o progra- 
ma imprimirá, ao ladó do quadricula- 
do, o valor do byte correspondente ao 
padrão de cada linha do bloco, acom- 
panhado do valor do byte de cor e do 
código da cor de frente e de fundo da- 
quela linha. 

O programa completo permite ainda 
que você limpe o quadriculado por meio 
da tecla A, evitando o trabalho de apa- 
gar ponto por ponto. 

Outra alternativa interessante que o 
programa oferece é a de se obter, com 
a tecla E, a imagem ao espelho do blo- 
co que está no quadriculado. Essa fun- 
ção facilita bastante a produção de de- 
senhos simétricos. 

Muito útil também é a possibilidade 
de rodar o bloco 9) graus, o que nos 
possibilita criar um torpedo, por exem- 
plo, e apontá-lo em todas as direções, 
usando a tecla V. 

Com a tecla I, pode-se inverter todo 
o padrão do bloco. Pressionando-a, os 
pontos acesos se apagam e os outros se 
acendem. A tecla Y tem o mesmo efei- 
to, mas troca a cor de frente com a cor 
de fundo, não atuando, assim, no esta- 
do dos pontos. Em outras palavras, o 
I modifica apenas os bytes do padrão do | 
bloco, enquanto o Y modifica os bytes 
de cor — e esta é uma diferença muito 
importante, embora não se reflita no 
efeito obtido. A última função utiliza 
uma impressora para reproduzir o pa- 
drão do bloco que está no quadricula- 
do, bem como os valores dos bytes de 
padrão e cor. Para imprimir, pressiona- 
se a tecla L. 








40 GOSUB 6000 
135 IF K$="V” 
oTO 200 

145 IF KS="A” 
OTo 200 

155 IF KS$="Yº 
OTO 200 

165 IF KS="L” 
OTO 200 

180 IF K$="I" 
oTOo 200 

190 IF K5="E*º 
OTOo 200 

1550 GOSUB 9000:FOR 1=0 TO 7:P( 
1)=0:FOR J=0 TO 7 

1595 11=64+I1*8: PRESET(12,II):PR 
INT41,P(T) 

1605 PRESET (56,11): PRINT&I,C(T) 
:PRESET(176,I1I):PRINT&I, (C(I)-( 
C(I)AND15))/16:PRESET(220,II):P 
RINT&1L,C(I)JANDIS 

1610 NEXT I 

1615 II=II+10:PRESET(12,I1T):PRI 
NT$&1," BYTE” 

1620 PRESET(56,II1):PRINTEAlL,"COR 


THEN GOSUB 4000:G 
THEN GOSUB 4500:6 


THEN GOSUB 5000:6 


THEN GOSUB 5500:6 


THEN GOSUB 3000:6G 


THEN GOSUB 3500:6 


1630 PRESET(164,II):PRINT41,"FR 
ENTE" 

1640 PRESET (216,II):PRINTkI,"FU 
NDO” 

1650 PRESET(8,160):PRINT+I,"Qua 
lquer tecla para continuar” 


1660 XS=INKEYS: IF X5="”" THEN 16 
60 

1670 LINE(0,64)-(88,160),15,BF 

1680 LINE(164,64)-(255,160),15, 
BF 

1690 GOSUB 9100:RETURN 

3000 FOR I=0 TO 7:FOR J=0 TO 7 

3010 B(I,J)=B(I,J)XOR1 

3020 GOTO 1080 

3500 FOR 1=0 TO 7:FOR J=0 TO 7 
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3520 NEXT J,I:FOR I=0 TO /:FOR 
J=0 TO 7 


3530 B(I,J)=T(I,J):GOTO 1080 
4000 FOR 1I=0 TO 7:FOR J=0 TO 7 
4010 T(I,J)=B(J,7-I) 

4020 GOTO 3520 

4500 FOR 1=0 TO 7:FOR J=0 TO 7 
4510 B(1,J)=0 

4520 GOTO 1080 

5000 FOR 1=0 TO 7 

5010 Y1=C(1)AND1S 

5020 Y2=(C(1)-Y1)/16 

5030 C(1I)=Y1*16+Y2 

5040 NEKT I:FOR I=0 TO 7:FOR J= 
O TO 7 

5050 GoTo 1080 

5500 LPRINT TAB(10);"BYTE”; 
5510 LPRINT TAB(15);" COR”; 
5520 LPRINT TAB(20);" FRENTE”; 
5530 LPRINT TAB (28);"FUNDO" 
5550 FOR 1=0 TO 7:P(I)=0:FOR J= 
O TO 7 

5560 P(I)=P(I)J+B(1I,]J)*2"(7-J) 
55870 IF B(I,J)=1 THEN LPRINT "X 


"; ELSE LPRINT *.”; 

5580 NEXT J 

5590 LPRINT TAB(LO);P(I); 

5600 LPRINT TAB(16);C(I); 

5610 LPRINT TAB(22): (C(I)-(CII) 


AND15))/16; 

5620 LPRINT TAB(28);C(IJANDIS 
5630 NEXT I 

5640 LPRINT:LPRINT:LPRINT 
5650 RETURN 

6000 FOR I=0 TO 7 

6010 C(I)=C*H1L6+F:NEXT: 

6020 RETURN 


Não há função automática que per- 
mita o aproveitamento do banco de blo- 
cos gravado em fita. Para isso, precisa- 


mos da ajuda de algumas linhas escri- 
tas em BASIC. 

A elaboração de um programa desse 
tipo exige que se conheça bem a organi- 
zação da memória de vídeo do MSX. 
Em artigo futuro trataremos deste as- 
sunto em detalhes. 


ALGUMAS INFORMAÇÕES 





Para os usuários mais avançados, 
adiantamos que um banco gravado pe- 
lo programa pode ser lido a qualquer 
momento. Inicialmente, deve-se prote- 
ger o alto da memória com: 


CLEAR 200, &HDO00 


Em seguida, carrega-se o banco di- 
gitando: 


BLOAD "CAS:” 


Com isso, o banco volta à mesma po- 
sição de memória onde foi criado. Os oi- 
to bytes correspondentes ao padrão do 
bloco guardado na posição X podem, 
então, ser encontrados a partir do se- 
guinte endereço: 

&HD100 + XX8 

E os oito bytes de cor do bloco guar- 
dado na posição X do banco se encon- 
tram a partir de: 

LHE10OO + XX*B 

O passo seguinte consiste em trans- 
ferir, com a ajuda de VPOKE, os bytes 
de padrão para a tabela de padrões — 
BASE(12) — e os bytes de cor para a ta- 


ah 


. | | 
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bela de cores — BASE(11). Maiores es- 
clarecimentos serão dados num próximo 
artigo. 


O programa conta agora com várias 
outras funções de edição. Uma delas é 
a de limpeza do quadriculado, disponí- 
vel pela tecla C. Já não será preciso, 
portanto, apagar ponto por ponto. 

A tecla U tem função semelhante, 
mas apaga apenas o oitavo bit, que con- 
trola o grupo de cores. 

Duas outras novas funções contri- 
buem para diminuir um pouco as difi- 
culdades. Pressionando a tecla J, todo 
o padrão se desloca para a esquerda; a 
letra K tem efeito contrário. Utilizando 
essas teclas, pontos que estavam em co- 
lunas impares passam a ocupar colunas 
pares e vice-versa. Não havendo dois 
pontos adjacentes, o procedimento in- 
verterá a cor dos pontos. 

Para criar figuras simétricas, temos 
a tecla E, que produz a imagem ao es- 
pelho do bloco que está no quadricula- 
do. Ao usá-la, tenha sempre em mente 
as regras de definição de cores. Para ro- 
dar o padrão do quadriculado 90 graus, 
pressione a tecla V, Essas funções devem 
ser combinadas com outras, uma vez 
que modificam o oitavo bit, que não 
participa do padrão, mas da determina- 
ção de cores. 

Dispomos ainda de duas funções de 
inversão: apagar o que está aceso e vice- 
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versa. A tecla I inverte todo o bloco, en- 
quanto a tecla O se restringe ao oitavo 
bit. O programa também exige os valo- 
res dos bytes, para quem quiser usá-los 
em linhas DATA, A tecla D mostra uma 
linha com os dados de um bloco, no ro- 
dapé da tela. Tendo uma impressora, os 
usuários do Apple podem obter uma có- 
pia usando W. 


40 DIM T(B,8B) 

135 IF K$ = "U” THEN GOSUB 40 
00: GOTO 50 

145 IF K$ = "U” THEN LL = 7: G 

OSUB 2500: GOTO 50 

155 IF K$ = "J” THEN GOSUB 45 
00: GOTO 50 

160 IF K$ = "II" THEN LL = O: G 
OSUB 3000: GOTO 50 

165 IF K$ = "K” THEN GOSUB 50 
00: GOTO 50 

170 IF KS = 7C” THEN LL = O; G 

OSUB 2500: GOTO 50 

175 IF KS = "D” THEN GOSUB 60 
DO: GOTO 50 

180 JTF KS = "0" THEN LL = 7: G 

OSUB 3000: GOTO 50 

185 IF K$ = "W” THEN PR$ 1: G 

OTO 6000: PR$ O: GOTO 50 

190 IF K$ = "E” THEN GOSUB 35 
DO: GOTO 50 

2500 FOR I =OTOZ: FORJ=L 
Po, 

2510 B(I,J) = O: GOTO 1020 

3000 FOR TI =OTO/ 

3005 FOR J = LLTO/ 

3010 TF B(T,.J) = O THEN B(I,J) 
= 1: GOTO 1020 

3020 B(L,J) = O: GOTO 1020 

3500 FORT =0OTO7: FORJ=ã0 
TO 6 





3510 T(l,J) = B(1I,6 - J): NEXT 
sl 

4520 FOR I=OTOZ: FOR JIJ =O 
TO 6 

35830 B(1I,J) = T(1I,J): GOTO 1020 

4000 FOR I = 0 '?PO7:FORJ=O 
TO 7 

4010 T(1I,J) = B(J,7 - I)J: NEXT 

J,I 

4020 FOR I=0OTO7: FORJ=0 
TO 7 

4030 B(Il,d) = T(tIl,J): GOTO 1020 

45800 FOR I=OTOZ7Z: FÓRJ=oO 
TO 6 

4510 B(I,J) = B(I,J + 1): GOTO 
1020 

5000 FOR 1 = O TO 7: FOR J = 
TO 6 

8010 T(I,? - JU) = B(I,6 - JJ: WN 
EXT J,I 

5020 FOR I=OTO7: FORJ=0 
TO 6 

5030 B(I,J) = T(I,J): GOTO 1020 

6000 HOME VTAB 22: INPUT “QU 

AL O NUMERO DO BLOCO 2?";N: IE NW 
> 320 THEN 1000 

6020 HOME 

6030 VTAB 21: PRINT "DATA "; 

6040 FOR I = O TO 7: PRINT PE 
EK (E +N*8+ T);: TE J< > 
7 THEN PRINT ” ,”; 

6050 NEXT VTAB 23: GET XS 
6060 HOME RETURN 


USO DOS BLOCOS EM OUTROS PROGRAMAS 





Além dos problemas na exibição de 
cores, o Apple tem uma organização de 
memória de vídeo um tanto complica- 
da. Deixaremos, assim, para um artigo 
futuro as explicações sobre o uso dos 
blocos em outros programas. 


No artigo anterior vimos a primeira 
metade de um programa cujo objetivo 
é facilitar a criação de blocos gráficos. 
Apresentamos aqui a outra metade, que 
acrescenta ao programa novos recursos 
de edição 

Inicialmente, carregue o programa 
antigo e adicione as linhas: 


30 T=0:FOR K=0 TO 14:READ N:T=T 
+N: POKE K+31100,N:NEXT:READC: IF 
T<>€C THEN END 

40 T=0: FOR K=0 TO 84:-READ N:T= 
T+N:POKE 31150+K,N:NEXT:READ C: 
IF T<>C THEN END 

70 DATA 141,72,142,123,12,236,1 
29,237,193,140,123,84,38,247,57 
+ 1974 

80 DATA 141,22,142,123,84,51,67 
,198,3,166,130,167,194,90,38,24 
9,51,70,140,123,12,38,240,57,18 
Do d/9,293/,9€ 

90 DATA 6,31,3,142,123,14,134,3 


,183,121,68,230,192,134,8,74,88 SH 








pá IG 


Bo 
2 
1a 
19 
E 
so 
So 
53 


pá 





As novas rotinas acrescentam várias funções ao 
programa gerador de gráficos; entre elas, a rotação de figuras. 


173,125,121,23,39,4,88,73,128,4 
168 

100 DATA 102,132,125,121,23,39, 

3,68,102,132,77,38,230,48,31,12 

2,121,68,38,219,48,6,140,123,86 
/38,207,53,192,8285 

170 PRINT"JOYSTICK OU TECLADO ( 

J OU T)?”; 

180 AS=INKEYS:IF AS<>"J” AND AS 

<>"T” THEN 180 

190 IF A$="J” THEN JY=1 

350 IF JY=1 THEN GOSUB 1000 ELS 

E GOSUB 1500 

1000 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
«Cl, NOT 

1010 IF (PEEK(6528B0)AND 1)=0 GO 

SUB 2000 

1020 IF JOYSTK(1)=0 THEN Y=Y-1 
1030 IF JOYSTK(1)=63 THEN Y=TY+1 
1040 IF JOYSTK(0)=0 THEN X=X-T 
1050 IF JOYSTK(0)=63 THEN XK=kX+T 
1060 RETURN 

2100 GET(216,70)-(239,93),A 
2110 GOSUB 3000:GOTO 2070 

2200 AS=INKEYS:IF AS<>"S” AND A 
$<>"P” THEN 2200 

2210 CLS:DN=O0:IF AS="P" 
=— 2 

2220 FOR K=0 TO 14:FOR R=0 TO 2 
2230 PRINT 4DN, PEEK(VARPTR(A(O) 
J+K*3+R) ; : NEXT: PRINTADN: NEXT 
2240 IF DN<O THEN 2260 

2250 AS=INKEYS:IF AS="" THEN 22 

50 

2260 FOR K=15 TO 23: 
2 

2270 PRINT 4DN, PEEK(VARPTR(A(O) 
J+K*3+R) ; :NEXT: PRINT &DN:NEKXT 

2280 AS=INKEYS:IF AS="" AND DN= 

O THEN 2280 

2290 SCREEN 1,ST:RETURN 

2800 POKE 30999, T-1:N=USRZ (VARP 

TR(A(0))) 

2810 GOSUB 3000:GOTO 2070 

2900 POKE 30999, T-1:N=USRI (VARP 

TR(A(0))) 
2910 GOSUB 


THEN DN 


FOR P=0 TO 


3000:GOTO 2070 
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Complete a linha 10 com: 
-DEFUSR1=31100:DEFUSR2=31150 


Se executarmos o programa agora, 
poderemos utilizar as novas funções. 
Mas é conveniente, antes de qualquer 
coisa, verificar se há algum erro em li- 
nhas DATA. 

Três funções foram somadas ao re- 
pertório do programa: espelhar, inver- 
ter e rodar o bloco gráfico. 

Para obter a imagem do bloco ao es- 
pelho, basta pressionar a tecla M. O ca- 
ractere é invertido da esquerda para a 
direita. Essa função é muito útil quan- 
do utilizamos dois blocos justapostos 
para produzir uma figura maior e simé- 
trica. Basta criar um dos caracteres, 
guardá-lo no banco e, em seguida, ob- 
ter a imagem ao espelho. 

A função de rotação é similar. Aper- 
tando R, rodamos o bloco 180 graus. 
Podemos, assim, mover a figura para ci- 
ma e para baixo, o que nos permite usar 
o gerador para criar uma versão do blo- 
co “de cabeça para baixo”. 

A inversão da cor de todos os pon- 
tos constitui outra nova opção ofereci- 
da pelo programa. Em PMODES, o 
efeito é fácil de prever: o preto se torna 
verde (ou cinza) e vice-versa. Em 
PMODES3, azul e amarelo são inverti- 
dos (o que é azul fica amarelo e vice- 
versa). O mesmo ocorre com vermelho 
e verde, cinza e laranja, ciano e 
magenta. 

As inversões de cor provocam altera- 
ções surpreendentes no aspecto de cer- 
tos blocos. Uma vez que nos acostume- 
mos com as regras de mudança de cor, 
a função será muito útil. 

possível, também, executar uma 








Com o programa completo, você poderá também 
inverter seus gráficos, utilizando a cor do fundo da tela. 


mudança de cor durante a edição, pres- 
sionando-se a tecla V. A alteração, no 
caso, resulta de uma inversão no tipo de 
tela — SCREEN — que estiver sendo 
utilizada. 

Outro novo recurso do programa, a 
impressão dos valores dos bytes dos ca- 
racteres guardados no banco, mostra-se 
especialmente útil quando se pretende 
colocar tais valores em linhas DATA. A 
tecla P ativa a função; os valores podem 
ser exibidos na tela ou, então, copiados 
por uma impressora. Após teclarmos P, 
o programa espera que pressionemos P 
ou S. P utiliza a impressora e S, a tela. 


USO DOS BLOCOS EM OUTROS PROGRAMAS 





Para utilizar os blocos gravados em 
fita dentro de um outro programa, car- 
regue o conteúdo da fita e, em seguida, 
guarde os padrões em matrizes com 
CLOADM e GET. 

Infelizmente, você precisará repetir o 
procedimento sempre que quiser usar O 
programa com os blocos gráficos ante- 
riormente gravados. 

Para evitar o trabalho de ler os blo- 
cos da fita todas as vezes, só há uma al- 
ternativa: transferir os números corres- 
pondentes aos blocos para linhas DA- 
TA e incorporá-las ao programa em 
questão. 

Assim, embora não pareça, pode ser 
mais conveniente recorrer à função de 
impressão para digitar linhas DATA. Os 
números ali contidos deverão ser colo- 
cados pelo programa, usando POKE, na 
tela, e transferidos para matrizes por co- 
mandos GET. Depois disso, os blocos 
estarão disponíveis por meio de coman- 
dos PUT. 














GO a SD E 1 O 


O BASIC 





NA MEMÓRIA 





Como o computador armazena um 
programa em BASIC na memória? Satisfaça 
sua curiosidade: com um programa bem 
simples, você poderá listar os 

códigos secretos usados por seu micro. 


Já tivemos a oportunidade de exami- 
nar como se organiza o espaço total de 
memória dos microcomputadores (veja 
artigo da página 174). Em geral este es- 
paço divide-se internamente em uma sé- 
rie de áreas, cada qual com uma função 
especifica. 

Uma dessas áreas da memória RAM 
é reservada para os programas em BASIC 
do usuário. Eles começam sempre em 
um mesmo endereço absoluto, cujo va- 
lor varia conforme a linha do micro. As- 
sim, quando o computador recebe um 
comando RUN, LIST ou LLIST, por 
exemplo, já “sabe” onde o programa se 
inicia, podendo começar a listá-lo ou 
interpretá-lo. Em muitos computadores, 
esse endereço de início está contido em 
um par de apontadores da RAM, em um 
lugar prefixado. Alterando-se seus va- 
lores com alguns POKE, pode-se mudar 
o local da memória onde o programa em 
BASIC está armazenado. 

A listagem dos códigos internos que 
seu microcomputador utiliza para arma- 
zenar esses programas constitui-unrt óti- 
| mo exercício para quem está começan- 
do a aprender programação em lingua- 
gem de máquina. 


O PROGRAMA 


Neste artigo, apresentaremos um pro- 
grama bem simples, baseado no coman- 
do PEEK, que nos permite examinar os 
códigos numéricos decimais contidos 
nas locações das memórias ROM ou 
RAM, e seu equivalente em ASCII. Vo- 
cê poderá, assim, identificar as partes 
dos programas que contêm códigos di- 
ferentes do ASCII. 

Os computadores de algumas linhas 
já dispõem de programas-monitores re- 
sidentes, que servem perfeitamente pa- 
ra este propósito (é o caso do TRS-80, 





do Apple Il e do TK-2000). Por isso, os 
programas seguintes destinam-se apenas 
aos micros das linhas ZX-81, Spectrum, 
TRS-Color e MSX, que não dispõem 
desse recurso. 

10 FOR 1=7681 TO 7851 STEP 5 
20 PRINT I;TAB(6);":"; 

30 FOR J=I TO 1+4:PRINT USING 
"Att "SPEEK(J) NEXT J 

60 PRINT TAB(25); 

70 FOR J=I TO I+4 

80 IF PEEK(J)>31 AND PEEK(J)< 
129 PRINT CHRS(PEEK(J)); ELSE 


PRINT * *; 
120 NEXT J: PRINT:NEXT I 


O programa acima funciona no TRS- 
Color. Para o MSX, modifique a linha 
10 para: 


10 FOR 1=-32765 TO -32595 STEP 
5 


10 FOR 1=23755 TO 23925 STEP 
5 


20 PRINT i:;TAB 6;":"; 

30 FOR j=I TO 1+4:PRINT PEEK 

3: :NEXT 5 

60 PRINT TAB(25); 

70 FOR 5=i TO i+4 

80 IF PEEK 5>231 AND PEEK 3<96 
THEN GOTO 110 

90 PRINT CHRS$ PEEK(5j);:GOTO 120 
110 PRINT * *; 
120 NEXT 5 

130 PRINT 

140 NEXT à 


10 FOR 1=16509 TO 16679 STEP 
20 PRINT I;TAB 6;":"; 

30 FOR J=I TO 1+4 

40 PRINT PEEK J; 

50 NEXT J 

60 PRINT TAB 25; 

70 FOR J=I TO I+4 

B0 IF PEEK J>31 AND PEEK J<96 
THEN GOTO 110 

90 PRINT CHRS$S PEEK(J); 

100 GOTO 120 

110 PRINT * ”; 











COMO É ARMAZENADO 


"E O USO DO PEEK 

a O QUE SIGNIFICAM 
OS CÓDIGOS 

120 NEXT J 

130 PRINT 

140 NEXT I 


O laço FOR...NEXT que começa na 
linha 10 coloca o endereço absoluto da 
localização da memória a ser listada, a 
partir do ponto inicial de todo progra- 
ma BASIC, em incrementos de 5. A li- 
nha 20 imprime o endereço absoluto da 
primeira memória de um grupo de 5, en- 
quanto os laços das linhas 30 e 70 se en- 
carregam, respectivamente, da impres- 
são do conteúdo numérico e dos carac- 
teres ASCII correspondentes. 

Observe que as palavras-chave do 
BASIC não são armazenadas caractere 
por caractere, mas sim como códigos 
numéricos de 1 byte — os chamados to- 
kens, em inglês. Cada código correspon- 
de a uma das palavras reservadas do 
BASIC, existentes no manual do micro. 
Eles são traduzidos de volta para as 
palavras-chave quando o programa é lis- 
tado com LIST ou LLIST. Armazenam- 
se em ASCII, por sua vez, as constan- 
tes, nomes de variáveis, caracteres de 
pontuação, simbolos matemáticos e tu- 
do o que estiver entre aspas. 

Como exercício, procure identificar 
os códigos das palavras reservadas no 
programa listado. 
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O jogo da cobra consiste num tipo 
clássico de videogame, de regras simples 
mas muito interessante e cheio de sur- 
presas. Além disso, sua programação 
dispensa o uso de linguagem de máqui- 
na — o jogo desafia o tempo, sendo um 
dos mais facilmente programáveis em 
BASIC. 


OJOGO | 


O objetivo do jogo é ajudar uma co- 
bra faminta a encontrar o alimento es- 
palhado ao acaso pela tela, na forma de 
números ou blocos. O valor desses nú- 
meros diminui à medida que o tempo 
passa; assim, quanto mais lento for o jo- 
gador, menor seu total de pontos. Se ele 
demorar demais, o número que estava 
na tela chega a zero e desaparece; outro 
número surge em posição diferente. Ca- 
da número engolido pela serpente au- 
menta seu comprimento proporcional- 
mente ao valor ingerido. 

Devemos tomar cuidado para não 
deixar a cobra ultrapassar a moldura da 
tela ou passar sobre si mesma — o que 
fica cada vez mais difícil, conforme ela 
cresce. Se cruzarmos a margem ou o 
corpo da cobra, o jogo termina. A pa- 
lavra “FIM” ou “FORA” é, então, exi- 
bida várias vezes na tela. 





10 BORDER 1: PAPER 7: INK 9: 
CLS 

20 LET hs=0 

30 DIM 9(570,2) 

100 LET s=0 

110 LET s(1,1)=10: LET s(1l,2)= 


14 
120 LET s(2Z,1)=11: 
14 


LET 9(2,2)= 





130 LET a(3,1)=12: LET 98(3,2)= 


lá 

135 GOSUB 1500 

140 LET t=1l: LET h=3 
145 LET vyv=1: LET xv=0 


PRINT PAPER 
NEXT n 


150 FOR n=1 TO 3: 

4;AT s(n,1l),8(n,2);"+: 

160 LET vy=12: LET x=14 

165 LET p=0 

170 GOSUB 1000 

190 IF ATTR (wy,x)<>56 AND ATTR 

(vy.x)<128 THEN GOTO 2000 

200 LET h=h+1l: IF h=501 THEN 

LET h=1 

210 PRINT PAPER 4;AT y,x;"+" 

220 LET s(h,1)=y: LET s(h,2)=x 

230 PRINT AT s(t,1),9(t,2); 

CHAS 32 

240 LET t=t+1: 

LET t=] 

250 IF p=0 THEN LET p=INT lí 

RND*9)+1: LET fy=INT (RND*19)+ 

2: LET fx=INT (RND*30)+1: IF 

ATTR (fy,fx)<>56 THEN LET p=0 
GOTO 250 

260 PRINT PAPER INT 

FLASH 1;AT fy,fx;D 

270 IF ARND<.98 THEN GOTO 290 


IF t=501 THEN 


(p/2); 


THEN GOTO 170 








Ajude uma cobra faminta a encontrar 
alimento. Enquanto vai abocanhando os 
números que o computador coloca na 

tela, o desnutrido animal se transforma, 
aos poucos, numa gigantesca serpente. 







280 LET p=p-l: IF p=0 THEN 
PRINT AT fy,fx;CHBS 32 
290 IF v<>fy OR x<>2fx 









300 LET s=s+p: PRINT 
PAPER 4;AT y,x;"t": PR 
INT PAPER 6;AT 0,6;8 
310 FOR n=1 TO p 

320 GOSUB 1000 

325 IF ATTR (wy,x)S256 
THEN GOTO 2000 
330 LET h=h+1: 
THEN LET h=1 


IF h=501 


V 


























340 LET a(h,1l)=y: LET 
a(h,2)=x 

350 PRINT PAPER 4;AT sí(h,l1l),s 
(h,2);"74" 

355 FOR m=1 TO 10: NEXT m 


360 NEXT n 
500 GOTO 165 | 








a UMA VERSÃO BASIC 
| DO JOGO DA COBRA 

MH ESPALHE OS NUMEROS E FAÇA 
A COBRA ABOCANHÁ-LOS 

Ik COMO A FIGURA CRESCE 


1000 LET aS=INKEYS 
1010 IF a$="q” THEN yv=-l: 
LET xv=0 
1020 IF a$="a”" THEN yvv=l1: 
LET xv=0 
1030 IF a$="o" THEN av=-1: 
LET yv=0 
1040 IF a$="p” THEN av=l: 
LET vyv=0 
1050 LET vy=ytyv: LET x=x+txv: RE 
TURN 
1500 FOR n=22560 TO 225 
b 91: POKE n,16: POKE n+6 
40,16: NEXT n 
1510 FOR n=22592 TO 225 
0902+32*19 STEP 32: POKE 
n, 16: POKE n+31, 16: NE 


XT n 

1520 PRINT PAPER 1;AT 0,0;"SCO 
RE "; PAPER 6;9; PAPER I;TAB l4 
: "RECORDE  "; PAPER 6;hs; PAPER 
L:TAB 31;”" * 

1590 RETURN 

2000 PRINT AT 0,0;: FOR n=1 TO 
BB: PRINT FLASH 1; PAPER 2; IN 
K 6;"FORA”; PAPER 6; INK 2;"FOR 
A”;: SOUND .005,60-n: NEXT n 
2010 IF s>ha THEN LET hs=s 
2020 CLS : PRINT AT 8,10;"SCORE 
: ":m:;AT 11,8;"RECORDE: “;hg 
2030 PRINT  INVERSE 1;AT 16,2;" 
Qualquer tecla para recomecar” 
2040 PAUSE O: CLS : GOTO 100 


A linha 10 cuida das cores da mol- 
dura, do fundo e dos caracteres. Tam- 
bém limpa a tela. As linhas 20 e 100 ze- 
ram o recorde e O score. 

A linha 30 DIMensiona a matriz 8, 
usada para armazenar as coordenadas 
da cobra. Inicialmente, esta ficará nas 
coordenadas (10,14), (11,14), (12,14), 
colocada nos primeiros elementos da 
matriz pelas linhas 110 e 130. 

A linha 135 chama uma sub-rotina 
que prepara a tela — linha 1500. Para 
o desenho da moldura, os valores são 
colocados na tabela de atributos com o 
auxílio de POKE. A linha 1500 traça 
duas linhas na tela: uma em cima e ou- 
tra embaixo; a 1510 desenha as linhas 
laterais. A linha 1520 escreve o recorde 
e o score. 

A linha 140 determina onde estão a 

cabeçae o rabo da cobra — h e t, res- 
pectivamente — dentro da matriz s. Es- 
sas variáveis indicam ao computador os 
elementos da matriz em que as coorde- , 
nadas da cabeça e do final do corpo da | 











cobra podem ser encontradas. Elas são 
chamadas de ''apontadores”” (pointers). 
Conforme a cobra se move, o compu- 
tador reajusta os dois apontadores e co- 
loca as novas coordenadas no elemento 
adequado da matriz. 


“MOVIMENTO E DIREÇÃO 





As variáveis xv e yv indicam a dire- 
ção em que está indo a cobra. Elas po- 
dem assumir três valores diferentes: O, 
quando a cobra não está indo naquela 
direção; 1, quando a cobra se dirige pa- 
ra a direita ou para baixo; e — 1, quan- 
do a cobra está seguindo para a esquer- 
da ou para cima. Pode-se ver, desse mo- 
do, que a linha 145 faz com que a ser- 
pente siga para cima no começo do jogo. 

A linha 150 desenha a cobra, inicial- 
mente, com apenas três caracteres. A 
posição atual da cabeça é dada por x e 
y, variáveis também usadas para detec- 
tar colisões. A linha 160 posiciona a ca- 
beça em (14,12). A linha 165 faz com 
que o valor do número a ser mostrado 
— p — seja zero. 

A linha 170 chama a sub-rotina que 
movimenta o cursor — linha 1000. Q e 
A movimentam a serpente na vertical, 
enquanto O e P o fazem na horizontal. 
Pressionando essas teclas, alteramos os 
valores de xv e yv; a linha 1050 modifi- 
ca a posição da cabeça adicionando xv 
eyvaxey. 

Quando termina a sub-rotina, o pro- 
grama retorna para a linha 190, que usa 
o comando ATTR para verificar se a ca- 
beça está sendo colocada em uma posi- 
ção que não é de cor branca — a cor do 
fundo — ou não é cintilante — como 
são os números. Se essas duas condições 
não forem satisfeitas, a cobra deve ter 
cruzado a moldura ou seu próprio cor- 
po. Neste caso, o programa vai para a 
linha 2000, início da sub-rotina que in- 
forma o final do jogo. 

Se a nova posição da cabeça for vá- 
lida, o programa prossegue na linha 200, 
que incrementa o apontador da cabeça. 
Se o apontador indica um elemento da 
matriz maior do que sua dimensão, o 
apontador passa a valer 1. A linha 210 
desenha a cabeça em sua nova posição 
e a linha 220 coloca as coordenadas des- 
ta posição na matriz s, no elemento in- 
dicado pelo apontador da cabeça — h. 
O rabo da cobra é mantido no tamanho 
correto por meio da impressão de espa- 
ços em branco que apagam os caracte- 
res das posições já ocupadas, Isso é fei- 
to pela linha 230, que obtém as coorde- 
nadas corretas na matriz s. A linha 240, 
por sua vez, aumenta o valor do apon- 
tador da cauda — t — verificando se ele 


ultrapassou a dimensão da matriz. 

Se não houver um número na tela pa- 
ra a cobra comer, a linha 250 escolhe um 
— p —, com posição e valor aleatórios. 
Se as coordenadas escolhidas não cor- 
respondem a uma área em branco da te- 
la— ATTR < >56 —, o valor e a posi- 
ção de p são escolhidos novamente. A 
linha 260 escreve o número na tela cin- 
tilando, isto é, com atributo FLASH. 

A medida que o tempo passa, O va- 
lor do número que está na tela vai di- 
minuindo. A linha 270, que compara 
um número aleatório com 0.98, intro- 
duz um certo elemento de acaso na ve- 
locidade com que ocorre a diminuição, 
Na maioria dos casos, a linha que dimi- 
nui o valor do número — 280 — é pula- 
da. Essa linha verifica se o valor de p 
ainda não chegou a zero, logo após 
subtrair-lhe | — em caso afirmativo, um 
espaço em branco é colocado no lugar 
do número na tela. Se a cabeça da co- 
bra não está na mesma posição que o 
número, completa-se o laço e o progra- 
ma volta à linha 170. 

Se a serpente engolir o número, o 
programa segue na linha 300, que soma 
o número engolido ao score. Este é co- 
locado na tela, assim como a cabeça. 

O laço FOR... NEXT das linhas 310 
a 360 adiciona ao corpo da cobra uma 
quantidade de caracteres igual ao valor 
ingerido, A cada volta do laço, a linha 
320 chama a rotina de movimentação do 
cursor; a linha 325 verifica se a cabeça 
ocupa uma posição legal; a linha 330 in- 
crementa o valor do apontador da ca- 
beça; a linha 340 coloca a nova posição 
na matriz s, e a linha 350 imprime a ca- 
beça. Nenhum caractere é apagado, co- 
mo aconteceria normalmente, servindo 
todos para acrescentar segmentos ao 
corpo da cobra, Como estes também 
nunca são apagados, a cobra teria mo- 
vimentos bem mais rápidos, se não hou- 
vesse o atraso provocado pela linha 355. 

A porção final do programa — que 
começa na linha 2000 — é a sub-rotina 
que cuida do encerramento do jogo. A 
linha 2000 escreve vários “FORA” na 
tela, ao mesmo tempo que emite uma sé- 
rie de sons. A linha 2010 atualiza o va- 
lor do recorde, se este foi batido, e a li- 
nha 2020 informa o placar. As linhas 
2030 e 2040 permitem que o jogador ini- 
cie uma nova partida. 

5 SCREEN 1:KEY OFF 

LO M=512:DIMB(M) 

15 RR=RND(-TIME) 

20 L=3:GOSUR 600 

30 Goto 500 

100 K=STICK(0):IF K=0 THEN K=L 
110 NP=B(H)+32*(K=1)-32*(K=5)-( 





K=3)+(K=7) 

120 TE=VPEEK (NP) 

130 IF TE=255 OR TE=HC OR TE=BC 
OR NP<BASE (5)+32 THEN VPOKE NP 
«HC: E=1 

140 L=K:FOR 1=1 TO 50:NEXT:RETU 
RN 

200 R=INT(BND(1)*9)+1:RX=INT(RN 
D(1)*13)+2:RY=INT(BND(1)*29)+2: 
RP=RX*32+RY 

210 IF VPEEK (BASE (5) +RP)<>32 TH 
EN 200 

220 VPOKE BASE (5) +RP,4B+B:P=1:R 
ETURN 

250 B=R-1:IF B=0 THEN VPOKE BAS 
E (5) +RP,32:P=0:RETUBN ELSE VPOK 
E BASE(5)+RP, 48+R: RETURN 

300 SC=SC+R:LOCATE 22,0:PRINT S 
C;:P=0 


310 SL=5L+1:VPOKE NP,BC 
320 H=H-1:IF H=0 THEN H=M 
330 B(H)=NP 

340 FOR J=1 TO R 

350 PLAY"L64CEF” 


360 GOSUB 100:TF E=l THEN B00 
370 H=H-1:1TF H=0 THEN H=M á 
380 B(HJ=NP:VPOKE NP,BC 

390 NEXT 

400 VPOKE NP, HC:RETUBN 

500 IF P=0 THEN GOSUB 200 ELSE 
IF INT(BND(1)*150)+1<SL THEN GO 
SUB 250 

510 GOSUB 100:IF E=l THEN B00 
520 IF TE=48+R THEN VPOKE B(H), 
BC:GOSUB 300 

530 VPOKE B(H),BC:VPOKE B(T),32 
540 H=H-1:TF H=0 THEN H=M 

550 T=T-l:TE T=0 THEN T=M 

560 B(H)=NP:VPOKE NP,HC 

570 GoTo 500 

600 BG=INT(AND(1)*13)+1l:FG=INT( 
RND(1)*13+1):P=0:SC=0:SL=1:E=0 
610 IF BG=FG THEN 600 

620 COLOR 15,BG,BG:CLS 

630 VPOKE BASE (6) +4, 240+BG 

640 VPOKE BASE (6)+31,FG*16+FG 
650 FOR J=0 TO 31:PLAY"T255LG6d4O 
4AG" : VPOKE BASE (5)+J, 255: VPOKE 
BASE (5) +J+736,255:NEXT:FOR J=32 
TO 736 STEP 32:PLAY"OZDA” : VPOK 
E BASE(5)+J,255:VPOKE BASE (5)+3 
l+], 255: NEXT 

660 LOCATE 3,0:PRINT"RECORDE="; 
RBS:;:PRINT TAB(15);"SCORE = 0 "; 
670 HC=2:BC=215:T=3:H=1 

6B0 VPOKE BASE(6),FG*16+BG 

690 VPOKE BASE (6)+26, FG*16+BG 
700 B(1l)j= BASE(5)+239:VPOKE B(1 
) HG 

710 B(2)=B(1)+32:VPOKE B(2),BC 
720 B(3)=B(2)+32:VPOKE B(3),BC 
730 BETURN 

B00 COLOR 15, INT(RND(1)*14)+1:€ 
LS: PLAY"OILACDEFGACDEFG":FOR K=1 
TO 408:PRINT "FIM ";:NEXT:PLAY 
"Q4ABCEDFGOJABCDEFGOZABCDEFG" 
B1O IF HS<SC THEN H5S=SC 

B20 COLOR 1,15,15:CLS:LOCATE 9, 
B:PRINT"SCORE =";SC:LOCATE 8,12 
*PRINT"RECORDE =" ;HS 

B30 AS=INKEYS:LOCATE 3,20:PRINT 
"<RETURN> para continuar” 
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B40 AS=INKEYS:IF AS<>CHR$(13) T 
HEN B40 ELSE 20 

Ao contrário de outros jogos vistos 
em INPUT, para os quais utilizamos a 
tela gráfica, optamos aqui pela tela de 
textos de 32 colunas, já que a cobra é 
feita de caracteres. 

A linha 5 seleciona a tela e desliga o 
menu das teclas de funções da parte in- 
ferior da tela. A linha 10 dimensiona a 
matriz B de maneira que esta acomode 
no máximo 512 caracteres — o maior ta- 
manho que a cobra poderá ter. Note que 
os elementos dessa matriz não corres- 
pondem às posições de caracteres na te- 
la. Cada um deles contém as coordena- 
das de uma parte da cobra. A linha 15 
“dá a partida” no gerador de números 
randômicos; a 20 manda o programa 
para a linha 600, que prepara as condi- 
ções iniciais do jogo. 

Na linha 600, BG é a cor de fundo da 
tela e FG, a cor da moldura, bem como 
da cobra. P=0 significa que nenhum nu- 
mero está sendo exibido; SC=0, que o 
score é zero; SL=0 quer dizer que o ni- 
vel de dificuldade é zero e E=0 informa 
ao computador que a cobra permanece 
dentro dos limites da tela, não tendo cru- 
zado nem a moldura, nem seu próprio 
corpo. Todas essas variáveis são utiliza- 
das ao longo do programa para que cer- 
tas sub-rotinas sejam chamadas no mo- 
mento adequado. 

A linha 610 verifica se a cor de fun- 
do é igual à da moldura — em caso afir- 
mativo, duas novas cores são escolhidas. 
A linha 620 seleciona as cores da tela — 
caracteres brancos, fundo e bordas de 
acordo com BG. Além disso, limpa a 
tela. 

Na linha 630, um comando VPOKE 
assegura que o caractere de espaço em 
branco — código 32 — tenha cor de 
frente branca e cor de fundo igual a BG. 
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Na linha 640, a mesma técnica é empre- 
gada para fazer com que o caractere 
255, usado para desenhar a moldura, te- 
nha cor de frente e de fundo igual a FG. 
A linha 650 desenha a moldura, enquan- 
to emite alguns sons. A linha 660 mos- 
tra o placar. 

Na linha 670, HC é o código do ca- 
ractere da cabeça da cobra e BC, o có- 
digo do caractere usado no corpo da 
mesma, As variáveis H e T indicam os 
elementos de B() que contêm as coorde- 
nadas da cabeça e da ponta da cauda da 
serpente. São chamadas de ''apontado- 
res” (pointers). 

Ainda usando o comando VPOKE 
para modificar os valores da tabela de 
cores da tela de 32 colunas, as linhas 680 
e 690 fazem com que os caracteres da 
cabeça e do corpo da cobra tenham cor 
de frente igual a FG e cor de fundo igual 
a BG. As linhas 700 a 720 colocam a ca- 
beça e dois segmentos do corpo na tela, 
de modo que a cobra tenha apenas es- 
tas partes a cada início de partida. 


ROTINA PRINCIPAL 





Da sub-rotina o programa retorna à 
linha 30, que o envia para a rotina prin- 
cipal, na linha 500. Essa linha verifica, 
inicialmente, se na tela há um número 
para a cobra comer. P é o indicador de 
número na tela; se seu valor for zero, a 
sub-rotina da linha 200 é chamada, Se 
houver um número na tela, um valor 
qualquer entre 1 e 150 é comparado com 
o nível de dificuldade SL. Se o número 
gerado for menor que SL, o programa 
vai à sub-rotina 250. 

A sub-rotina que começa na linha 200 
coloca um número qualquer na tela, em 
uma posição escolhida ao acaso. A li- 
nha 200 seleciona o número — R — en- 
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tre 1 e 9, bem como suas coordenadas 
RX e RY. Esses dois valores são usados 
para calcular RP, posição do número na 
tabela de nomes da tela 1. Antes que o 
número seja impresso na tela, a linha 
210 verifica se na sua posição há algum 
outro caractere além do de espaço — có- 
digo 32. Dessa maneira, evita que o nú- 
mero seja colocado sobre a moldura ou 
sobre o corpo da serpente. A linha 220 
escreve o número na tela, usando VPO- 
KE para colocar o código corresponden- 
te ao número na tabela de nomes — BA- 
SE (5) — da tela 1. Consultando uma 
tabela ASCII, você verá que os caracte- 
res de O a 9 têm códigos de 48 a 57. 

A sub-rotina que começa na linha 250 
faz o valor do número na tela ir dimi- 
nuindo até que o jogador leve a cobra 
até ele. Se o número chegar a zero an- 
tes da cobra comê-lo, um espaço em 
branco será colocado em seu lugar. En- 
quanto isso não acontecer, valores su- 
cessivamente mais baixos substituem os 
anteriores, na mesma posição. A sub- 
rotina retorna para a linha 510. 

Essa linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de 
movimentação do cursor. Podemos usar 
tanto as teclas com setas como um joys- 
tick, desde que o comando STICK da li- 
nha 100 seja modificado (veja o artigo 
da página 348). O IF...THEN verifica se. 
a cobra cruzou a moldura ou seu pró- 
prio corpo. Em caso afirmativo, O pro- 
grama vai para a linha 800, que cuida do 
fim da partida. 

A linha 520 testa se o número foi en- 
golido pela cobra, somando 48 a R e 
comparando o resultado com TE. So- 
mamos 48 a R para obter o código do 
caractere correspondente ao número que 
estava na tela. TE, obtido com VYPEÉEK, 
corresponde ao código do caractere que 
estava na posição que a cabeça da co- 
bra ocupa agora. Caso o número tenha 
sido realmente engolido, um caractere 
do corpo é colocado em sua posição. O 
programa vai, então, para a sub-rotina 
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da linha 300, que calcula o novo score, P/ 40) NP - INT (NP / 40) * 40, INT ( 
aumenta o tamanho da cobra propor- 390 NEXT NP / 40) 
cionalmente ao número engolido — la- 400 COLOR= 11: PLOT NP - INT 570 Goto 500. 
outro número na tela 410 RETURN Ea L:B = 0 
ds agr ai 500 IF P = O THEN GOSUB 200: 650 COLOR= 9: HLIN 0,39 AT O: 

As linhas 540 e 550 modificam os como 510 VLIN 0,39 AT O: VLIN 0,39 AT 39 
apontadores da cabeça e da ponta da sos TF INT ( RND (1) * 150) + : HLIN 0,39 AT 39 
cauda, ajustando seus valores, caso te- 1 < SL THEN GOSUB 250 660 HOME : VTAB 22: PRINT "SCCO 
nham se reduzido a zero. A linha 560co- s10 GOSUB 100: IF E = 1 THEN 8 RE ";SC; TAB( 15);"RECORDE ";HS 
loca o caractere da cabeça na tela. 00 6720 T = 3:H = 1: COLOR= 11 

A rotina que cuida do encerramento 520 IF TE = 6 THEN COLOR= O: 680 B(1l) = 300: PLOT B(1l) - JIN 
da partida começa na linha 800, que lim-  PLOT B(H) - INT (B(H) / 40) * T (B(1) / 40) * 40, INT (B(1) / 
pa a tela, usando uma cor ao acaso, e 40. INT (B(H) / 40): GOSUB 300 pt AueGua à 
produz um som enquanto a palavra RU A qm À o lat 700 B(2) = 340: PLOT B(2) - JIN 
Lit E) n FE çã . " n - A 4 

FIM” é impressa várias vezes. No fim ,5;. coror= 0: PLOT B(T) - INT T (B(2) / 40) * 40, INT (B(2) / 
da operação, outro som é produzido. A (B(T) / 40) * 40, INT (BIT) / 40) 
linha 810 atualiza o recorde, antes que 40) 710 B(3) = 380: PLOT B(3) - JIN 
as linhas 820 a 840 ofereçam ao joga- sao H=H-1:IFH=õO(THENHÕ TÃ(B(3)/40)*40, INT G(B(3)/ 
dor a oportunidade de jogar novamente. =mM 40) 

550 T=T-1: IFT=õOTHENT 720 RETURN 
= M 800 HGR : TEXT : HOME : FOR I 


q“ EEB. 560 B(H) = NP: COLOR= 11: PLOT = 1 TO 500:XX = PEEK ( - 16336 


5 HOME : GH 

LO M = 500: DIM B(M) 

20 GOSUB 600 

30 GOTO 500 

100 GET KS: IF K5S < > "PT AND 


KS < > "L” ANDKS< >"xX” AN bh AR CNN a NT. 
7] FE , - - ! 4 “ | a a e, "q EM Pq Ros 
D KS < > TZ” THEN KS = L5 | Aa” q Pd O 
110 NP = B(H) - 40 * (K$ = "P”) UE Qu LA (TAS o. 
He he ' ' q E ST po O ae ER PE Ma an to 
+ 40 * (KS = PL") - (KS = *Z") : : aaa dO == 
+ (KS = "X”) 
120 TE = SCRN( NP - INT (NP/ 


40) * 40, INT (NP / 40)) 

130 IF TE =90R TE =lIlORTE 
= 8 OR NP < 40 THEN COLOR= 11 
*- PLOT NP - INT (NP / 40) * 40 
+ INT (NP / 40):E = 1 

140 LS = K$: RETURN 

200 R = INT ( RND (1) * 9) + 1 
'BX = INT ( BND (1) * 37) + 2: 
RAY = INT ( BND (1) * 37) + 2 
210 IF SCRBN( RX,AY) < > O TH 
EN 200 

220 VTAB 22: HTAB 31: PRINT "B 
ÔNUS ";R:P = 1 

230 COLOR= 6: PLOT BX,ARY: RETU 
RN 

250 R = BR - 1: TF BR = 
OLOR= 0: PLOT BRX,RYT:P 
AN 

260 HTAB 31: VTAB 22: PRINT "B 
ONUS ";R: RETURN 

300 SC = SC + R: HTAB 7: VTAB 2 
2: PRINT SC:P = O 

310 SL = SL + 1: COLOR= B: PLOT 


O THEN C 
= 0: RETU 


NP - INT (NP / 40) * 40, INT 
(NP / 40) 

320 H=H- 1: IF H=OTHENH 
= M 


330 B(H) = NP 

340 FOR J =1 TOR 

350 XX = PEEK ( - 16336) 

360 GOSUB 100: IF E = 1 THEN B 
OO 

3720 H = H- 1: IF H = O THEN H 
= M 

380 B(H) = NP: COLOR= 8: PLOT N 
P - INT (NP / 40) * 40, INT (N 














HINO 


): PRINT “FIM “T;: NEXT 
B05 IF HS < SC THEN HS = SC 


B10 HOME : HTAB 15: VTAB 8: PR 
INT "SCORE = ";SC: HTAB 14: VTA 
B 12: PRINT "RECORDE = ";HS 

B20 HTAB 6: VTAB 20: PRINT "<BR 
ETURN> PARA JOGAR NOVAMENTE”: G 
ET AS 

B30 IF AS = cCHRS$ (13) THEN H 
OQME : GR : GOTO 20 

B8B0 GOTO B20 


Para o jogo no Apple e no TK-2000, 
escolhemos a tela de baixa resolução, já 
que a cobra é feita de blocos. 

A linha 5 seleciona a tela e limpa sua 
parte inferior. A 10 dimensiona a ma- 
triz B de modo a acomodar no máximo 
quinhentos caracteres — o maior tama- 
nho que a cobra poderá ter. Note que 
os elementos da matriz B não correspon- 
dem às posições dos blocos na tela. Ca- 
da um deles contém as coordenadas de 





uma parte da cobra. A linha 20 manda 
o programa para a linha 600, que pre- 
para as condições iniciais do jogo. 

Na linha 600, P=0 significa que ne- 
nhum bloco está sendo mostrado; 
SC=0, que o score é zero; SL=0 quer 
dizer que o nível de dificuldade é zero 
e E=0 informa ao computador que a co- 
bra permanece dentro dos limites da te- 
la, não tendo cruzado nem a moldura, 
nem seu próprio corpo. Todas essas va- 
riáveis são utilizadas ao longo do pro- 
grama para que certas sub-rotinas sejam 
chamadas no momento adequado. 

A linha 650 desenha a moldura. A li- 
nha 660 mostra o placar. : 

Na linha 670, 1l éa cor da cabeça da 
cobra. He T são variáveis usadas para 
indicar os elementos de B () que con- 
têm as coordenadas da cabeça e da pon- 
ta da cauda da serpente. Essas duas va- 
riáveis são chamadas de “'apontadores” 
(pointers). 
As linhas 680 a 710 colocam a cabe- 


ça e dois segmentos do corpo na tela, de 
modo que a cobra tenha apenas estas 
partes a cada início de partida. À cor do 
corpo da cobra é 8. 





BLOCOS NA TELA 


Da sub-rotina o programa retorna à 
linha 30, que o envia para a rotina 
principal, na linha 500. Essa linha veri- 
fica, inicialmente, se há comida (bloco) 
para a cobra na tela. P é o indicador de 
bloco na tela; se seu valor for zero, a 
sub-rotina da linha 200 é chamada. Se 
houver um bloco na tela, um número 
qualquer entre 1 e 150 é comparado com 
o nível de dificuldade SL. Se o número 
gerado for menor que SL, a linha 505 
paes o programa para a sub-rotina 

50. 


A sub-rotina que começa na linha 200 
coloca um bloco na tela, em uma posi- 
ção escolhida ao acaso. A linha 200 se- 
leciona o número — R — entre 1 e 9, 
bem como duas coordenadas RX e RY. 
A linha 210 verifica se a posição tem a 
cor 0, preta, indicando que não há na- 
da no local. A linha 220 imprime na por- 
ção inferior da tela o valor do bloco que 
ali está (bônus). A linha 230 coloca um 
bloco de cor 6 em um ponto qualquer 
da tela. 

A sub-rotina da linha 250 diminui 
gradativamente o valor do bônus, até 
que o jogador consiga fazer a cobra che- 
gar à comida. Se o número for reduzi- 
do a zero antes que a cobra coma o blo- 
co, um espaço em brarico é colocado em 
seu lugar. Enquanto isso não ocorre, va- 
lores mais baixos são sucessivamente 
exibidos. A sub-rotina retorna para a li- 
nha 510. 

Esta linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de mo- 
vimentação do cursor. Usamos as teclas P, 
L, Ze X como de costume, O IF... THEN 
verifica se a cobra cruzou a moldura ou seu 
próprio corpo; em caso afirmativo, o pro- 
grama vai para a linha 800, que cuida do 
encerramento da partida. 

A linha 520 testa se a comida foi en- 
golida pela cobra, comparando a cor do 
bloco com TE. Usamos SCRN na linha 
120 para obter TE, cor do bloco que es- 
tava na posição que a cabeça da cobra 
ocupa. Caso a comida tenha sido real- 
mente engolida, um bloco do corpo é 
colocado em sua posição. O programa 
vai, então, para a sub-rotina da linha 
300, que calcula o novo score, aumenta 
o tamanho da cobra proporcionalmen- 
te ao bônus — laço entre as linhas 340 
e 390 — e, por fim, coloca outro bloco 
na tela. 

As linhas 540 e 550 mudam os apon- 
tadores da cabeça e da ponta da cauda, 
ajustando seus valores, caso tenham se 
reduzido a zero. A linha 560 coloca o 
bloco da cabeça da cobra na tela, 

A rotina que cuida do final da parti- 
da começa na linha 800, que limpa a te- 
la e provoca um ruído (no Apple), en- 
quanto a palavra “FIM"* é impressa vá- 
rias vezes. A linha 805 atualiza o recor- 
de, antes que as linhas 810 a 830 ofere- 
çam ao jogador a oportunidade de jo- 
gar novamente. 


10 M=512:DIM B(M) 

20 GOSUB 600 

30 GoTo 500 

100 KS=INKEYS:IF K$="" THEN K$S= 
LS 


110 K=ASC(KS) :NP=B(H)-32*(K=10) | 

































































































coci 


=. À dei ue 

(K Lao (u29) +“ (K=8) | a 
=PEEK (NP). gn | 

| TE=FG OR TE=HC. oR rmeno 

1056 THEN POKE NP,HC:E=1 

LS=K$: RETURN 

RN (5) ec au (13)+L:At=a 


A I A 'que esta acomode no pe 512 
“caracteres — o maior tamanho que a co- 
“bra poderá ter. Note que os elementos 
“da matriz B não correspondem às posi- 

“ções de caracteres na tela. Cada elemen- 
to contém as coordenadas de uma par- 
“te da cobra. A linha 20 manda o pro- 

— grama à linha 600, que prepara as con- 
dições iniciais do jogo. . 

E «pel: RETURN. 0 Nalinha 600, BG é a cor de fundo 

=R-1:IF R=0 TH EN o erp da tela e FG, a cor da moldura. 

«CHRS (BG) ; :P=0: RETURN ELSE PRIN L$=CHR$(94) faz com que a cobra se 

R P,RIGHTS (STRS(R), 13 : RETURN “movimente para cima, até que uma te- 

300 SC=SC+R: PRINT €26,5C;, id A “cla seja pressionada. P = O significa que 

310 5 E THEN em “nenhum número está sendo mostrado; 

Mo e (HJeNP emp ] 'SC=0, que o score é zero; SL=0 quer 

RA ! | dizer que o nível de dificuldade é zero, 

Dea gi e E=0 informa ao computador que a 
" cobra permanece dentro dos limites da 
ia, não tendo cruzado nem a moldu- 
ra, nem seu próprio-corpo. Todas essas 

“variáveis são utilizadas ao longo do pro- 
grama para que certas sub-rotinas sejam 

“chamadas no momento adequado. 

A linha 610 verifica se a cor de fun- 
“ do é igual à da moldura, escolhendo 
duas novas cores se o par inicial for 
idêntico. A linha 620 usa CLS BG para 
colorir a tela. Subtrai | de BG e FG, nu- 


» 350 PLAY "L25SCEF” dr 
360 GOSUB| 100:IF E=1. THEN 900 
370 H=H-1:1F H=0 THEN HSM 
8 (H) =NP: POKE NP,BC' Fu 
| mm ne | 1! 
- 400 P OKE NP, HC:RETURN' IM 
500 IF P=0 THEN GOSUB. 200 pp 
“IF BND(159)<SL THEN GOSUB 250 
510 GOSUB 100: IF E=1 THEN 800 | 
520 IF. TE=R+112 THEN POKE, B(H). 
IC: GOSUB 300 | 
530 POKE B(H),BC:POKE B(T),BG 


IL a | 


PAii 


540 H=H-1:IF H=0 THEN H=M 

550 T=T-1:IF T=0 THEN T=M ma preparação para as contas das linhas 
560 B(H)=NP:POKE NP,HC 630 e 640. Embora pareçam complexas, 
570 GOTO 500 essas contas simplesmente convertem 
600 BG=RND(7)+1:FG=RND(7)+1:LS= "BG e FG em valores que possam ser co- 


CHRS (94) :P=0:SC=0:SL=1:E=0 locados na tela com POKE, a fim de 


610 IF BG=FG THEN 600 

620 CLS BG:BG=BG-1:FG=FG-1 produzir a cbr desejada. 

630 BG=143+16*BG A linha 650 desenha a moldura, en- 
640 FG=143+16XFG quanto produz alguns sons. A linha 660 
650 FOR J=1024 TO 105S:PLAY "T2 mostra O placar. 


Na linha 670, HC é o código do ca- 
ractere da cabeça da cobra e BC, o có- 
digo do caractere usado no corpo da 
mesma. He T são variáveis usadas pa- 
ra indicar os elementos de B() que con- 
têm as coordenadas da cabeça e da pon- 
ta da cauda da serpente. Essas duas va- 
riáveis são chamadas de “apontadores'”' 
(pointers). 

As linhas 680 a 700 colocam na tela 
a cabeça e dois segmentos do corpo, de 
modo que a cobra tenha apenas estas 
partes a cada início de partida. 

Da sub-rotina o programa retorna pa- 
ra a linha 30, que o envia para a rotina 
principal na linha 500. Essa linha veri- 
fica, inicialmente, se há um número na 
tela para a cobra comer. P é o indicador 
de número na tela. Se seu valor for igual 


55L25504AG”": POKE J,FG:POKE J+48 
O,FG:NEXT:FOR J=1056 TO 1472 ST 
EP 32:PLAY"OZDA":POKE J,FG:PORE 
J+31, FG:NEXT 

660 PRINT €3,"RECORDE=";,HS;:PRI 
NT €615,"SCORE= 0 "; 

670 HC=ASC("*")+64:BC=ASC("4")+ 

64:T=3:H=1 

680 B(1)=1263:POKE B(1),HC 

690 B(2)=1295:POKE B(2),BC 

700 B(3)=1327:POKE B(3),B€ 

710 RETURN 

800 CLS ARND(8): PLAY"OLACDEFGAC 
DEFG":FOR K=1 TO 40B:PRINT " FO 

RA!! ";:NEXT:PLAY"O4ABCDEFGOJAB 
CDEFGOZABCDEFG” 

810 IF HS<SC THEN HS=5C 

B20 CLS:PRINT 673," SCORE =" 15 
C:PRINT 8230,” RECORDE =";,HS 
830 AS=INKEYS: PRINT €450,"PRESS 


IONE QUALQUER TECLA PARA RECO 

MECAR” a zero, a sub-rotina da linha 200 é cha- 
840 AS=INKEYS: IF AS$="" THEN 84 mada. Se houver um número na tela, um 
O ELSE 20 número qualquer entre 1 e 150 é com- 


parado com O nível de dificuldade SL. 
Se o número gerado for menor que SL, 
o programa vai à sub-rotina 250. 
A sub-rotina que começa na linha 200 
coloca na tela úm número qualquer, em 
uma posição escolhida ao acaso. A li- 


Usamos a tela de textos, e não a grá- 
fica, para o jogo no TRS-Color, já que 
a cobra é feita de caracteres. 

A linha 10 dimensiona a matriz B de 










nha 200 seleciona o número — R — en- 
tre 1 e 9, bem como suas ordenadas 
RX e RY. Esses dois valores são usados 
para calcular RP, ção do número na 
tabela de nomes a tela 1. Antes que o 
número seja impresso na tela, a linha 
210 verifica se na sua posição há outra 
cor além da cor de fundo, para evitar 
uma superposição com a moldura ou 
com o corpo da serpente. À linha 220 
cabe escrever o número na tela, e colo- 
car 1 em P. 

A sub-rotina que começa na linha 250 
diminui gradativamente o valor do nú- 
mero na tela, até que o jogador consiga 
fazer a cobra comê-lo. Se o número for 
reduzido a zero, um espaço em branco 
é colocado em seu lugar. Enquanto isso 
não ocorre, valores sucessivamente mais 
baixos são colocados na mesma posição. 
A sub-rotina retorna para a linha 510. 

Essa linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de 
movimentação do cursor. O IF... THEN 
verifica se a cobra cruzou a moldura ou 
seu próprio corpo; em caso afirmativo, 
o programa vai para a linha 800, que cui- 
da do fim da partida. 


| A COBRA CRESCE 


A linha 520 testa se a cobra engoliu 
o número, somando 112 a R e compa- 
rando o resultado com TE. Somamos 
112 a R para obter o código do caracte- 
re correspondente ao número que esta- 
va na tela. TE é obtido com PEEK, e 
corresponde ao código do caractere que 
estava na posição que a cabeça da co- 
bra ocupa agora. Caso o número tenha 
sido realmente engolido, um caractere 
do corpo é colocado em sua posição. O 
programa vai, então, para a sub-rotina 
da linha 300, que calcula o novo score, 
aumenta o tamanho da cobra propor- 
cionalmente ao número engolido — la- 
ço entre as linhas 340 e 390 — e coloca 
outro número na tela. 

As linhas 540 e 550 modificam os 
apontadores da cabeça e da ponta da 

cauda, ajustando seus valores, caso eles 
tenham se reduzido a zero. A linha 560 
coloca o caractere da cabeça da cobra 
na tela. 

A rotina que cuida do encerramento 
da partida começa na linha 800, que lim- 
pa a tela usando uma cor ao acaso e pro- 
duz algum som enquanto a palavra 
“FIM” é impressa várias vezes. Ao fi- 
nal da operação, outro som é produzi- 
do. A linha 810 se incumbe de atualizar 
o recorde, antes que as linhas 820 a 840 
ofereçam ao jogador a oportunidade de 
jogar novamente. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





INHnnanaNO PRÓXIMO NÚMEROEEEEENI! 


PROGRAMAÇÃO BASIC 
Os blocos gráficos definidos pelo usuário podem assumir 
a forma que quisermos. A imaginação é o limite. 


CÓDIGO DE MÁQUINA 
Apagando as linhas REM e os espaços inúteis, você tornará 
seus programas mais rápidos e econômicos. Veja como fazê-lo. 


PERIFERICOS 
Você quer adquirir uma impressora? Para uma boa 
escolha, analise as características dos diversos modelos. 


PROGRAMAÇÃO BASIC 
Conhecemos várias rotinas de ordenação. Qual 
é a melhor para o seu caso? 





